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

asion 2003-10-20 07:58:51

...全文

538 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

ls2008 2003-10-20

打赏
举报

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

飞翔的老虎 2003-10-20

打赏
举报

messageboxEx

dickeybird888 2003-10-20

打赏
举报

其实只是使用方法不同罢了！不过我最喜欢用messagebox

if application.MessageBox('ssssss','message',mb_iconinformation+MB_YesNo)=mrYes
then
showmessage('true！');

ziqing 2003-10-20

打赏
举报

总结一下，上述正确!!!!

Jobs_Weng 2003-10-20

打赏
举报

application.messagebox('信息','標題',[圖標]+[按鈕]);

如：
if application.MessageBox('信息。','標題',mb_iconinformation+MB_YesNo)=mrYes
then
showmessage('你選擇了是！');

圖標常用的有：
mb_iconInformation :信息
mb_iconQuestion :提問
mb_iconWarning :警告
mb_iconError :錯誤
按鈕常用的有：
mb_YesNo
mb_OkCancel

pdbird 2003-10-20

打赏
举报

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

IORILI 2003-10-20

打赏
举报

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

grail_ 2003-10-20

打赏
举报

messagebox();
showmessage();

ysycrazy 2003-10-20

打赏
举报

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;
看看帮助吧！

chenshu19791003 2003-10-20