Delphi消息弹出

//Delphi消息弹出

1.procedure ShowMessage(const Msg: string);

单元：Dialogsor QDialogs

例子：showmessage('hello');

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

单元：Dialogsor QDialogs

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

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