delphi中如何设置弹出对话框呀，解决了就马上给分~！！！

Question

我记得好像有一个函数叫什么message的，记不还清了

Answer 1

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

Answer 2

楼上jinjazz实例3中一个参数有误 例子：if messagedlg('确定要退出吗？',mtwarnint,[mbyes,mbno],0)=mryes then close;不是mtwarnint而是mtwarning。