Delphi里面弹出对话框的方法

1.procedure   ShowMessage(const   Msg:   string);

    单元:Dialogsor   QDialogs

    例子:showmessage( 'hello ');

 

2.function   MessageBox(const   Text,   Caption:   PChar;   Flags:   Longint   =   MB_OK):   Integer;

    单元:Forms

    例子:MessageBox( 'This   should   be   on   top. ',   'Look ',   mb_OK)

    注:delphi的帮助文档提供的例子好像有误他的最后一个参数是[sbmok]

 

3.function   MessageDlg(const   Msg:   string;   DlgType:   TMsgDlgType;   Buttons:   TMsgDlgButtons;   HelpCtx:   Longint):   Word;

    单元:Dialogsor   QDialogs

    例子:if   messagedlg( '确定要退出吗? ',mtwarnint,[mbyes,mbno],0)=mryes   then   close;

 

4.int   MessageBox(

 

        HWND   hWnd, //   handle   of   owner   window

        LPCTSTR   lpText, //   address   of   text   in   message   box

        LPCTSTR   lpCaption, //   address   of   title   of   message   box    

        UINT   uType   //   style   of   message   box

      );

    单元:windows   API

    例子:windows.messagebox(0, '标题 ', '警告错误 ',MB_ICONSTOP);

 

转载于:https://www.cnblogs.com/blogpro/p/11426570.html

发布了0 篇原创文章 · 获赞 1 · 访问量 2456
展开阅读全文
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览