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