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);