怎样作出象 VB那样的消息框

Question

MessageBox
Application.MessageBox

Answer 1

if Application.MessageBox(
        'Could not open Table1 exclusively - Try again?',
        'Open Error', 
        MB_OKCANCEL + MB_DEFBUTTON1) <> IDOK then

Answer 2

可以使用delphi 的messagebox函数，如：
messagebox(form1.handle,'内容','标题'，mb_ok+mb_iconwarnning);
还可以使用application.messagebox函数，只是不用form1.handle.谢谢了，给分吧！

Answer 3

MessageBox(H:Handle;text:PChar;title:PChar;uType:Cardinal);

Answer 4

为什么加上后面的 mb_iconwarnning 就有错误，而不加这句就可以？？？

Answer 5

摘自delphi帮助  函数声明：
function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;
例程：  MessageBox('This should be on top.', 'Look', MB_OK);
或者是MessageDlg。函数声明：
function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;
例程：MessageDlg('Exiting the Object Pascal application.', mtInformation,
      [mbOk], 0);