在DELPHI中如何使用“消息对话框”（类似于VB中Msgbox)的功能？

Question

在DELPHI中如何使用“消息对话框”（类似于VB中Msgbox)的功能？

Answer 1

Application.MessageBox(const Text, Caption: PChar; Flags: Longint);
ShowMessage('');
MessageDlg('', mtXXXX, [mbOK, ...], 0);

Answer 2

messagebox();
showmessage();
messagedlg(); 都能实现呀
例如 showmessage('消息对话框');
messagebox('TitleName','消息对话框',MB_ICONERROR or MB_Ok);
MessageDlg('Exiting the Object Pascal application.', mtInformation,
      [mbOk], 0);
具体的看帮助吧

Answer 3

1.procedure ShowMessage(const Msg: string);
2.function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: 
TMsgDlgButtons; HelpCtx: Longint): Word;
 procedure TForm1.Button1Click(Sender: TObject);begin
  if MessageDlg('Welcome to my Object Pascal application.  Exit now?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    MessageDlg('Exiting the Object Pascal application.', mtInformation,
      [mbOk], 0);
    Close;
  end;end;
3.function MessageBox(const Text, Caption: PChar; Flags: Longint): Integer;
      if Application.MessageBox(
        'Could not open Table1 exclusively - Try again?',        'Open Error', 
        MB_OKCANCEL + MB_DEFBUTTON1) <> IDOK then
        raise; 
看看帮助吧！

Answer 4

messagebox();
showmessage();
messagedlg(); 都能实现
具体的可以f1

Answer 5

messagebox();
showmessage();
messagedlg(); 都能实现呀
例如 showmessage('消息对话框');
messagebox('TitleName','消息对话框',MB_ICONERROR or MB_Ok);
MessageDlg('Exiting the Object Pascal application.', mtInformation,[mbOk], 0);
哪一个都是可以的

Answer 6

application.messagebox('信息','標題',[圖標]+[按鈕]);如：
if application.MessageBox('信息。','標題',mb_iconinformation+MB_YesNo)=mrYes
then
    showmessage('你選擇了是！');圖標常用的有：
mb_iconInformation    :信息
mb_iconQuestion       :提問
mb_iconWarning        :警告
mb_iconError          :錯誤
按鈕常用的有：
mb_YesNo
mb_OkCancel

Answer 7

其实只是使用方法不同罢了！不过我最喜欢用messageboxif application.MessageBox('ssssss','message',mb_iconinformation+MB_YesNo)=mrYes
then
    showmessage('true！');

Answer 8

IF MessageDlg('True?',mtConfirmation, [mbYes, mbNo], 0)=mrYes then
   showmessage('True!')
else showmessage('False!');