2024年6月3日发(作者：)

delphi 中的MessageDlg

if MessageDlg('Welcome to my Delphi application. Exit now?',

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

begin

Close;

end;

MessageDlg用法

对话框类型：

mtwarning——含有感叹号的警告对话框

mterror——含有红色叉符号的错误对话框

mtinformation——含有蓝色i符号的信息对话框

mtconfirmation——含有绿色问号的确认对话框

mtcustom——不含图标的一般对话框，对话框的标题是程序的名称

按钮组中的按钮：

mbYes——mrYes或6

mbNo——mrNo或7

mbOk——mrOk或1

mbCancel——mrCancel或2

mbHelp——help按钮

mbAbort——mrAbort或3

mbRetry——mrRetry或4

mbIgnore——mrIgnore或5

mbAll——mrAll或8

mbNoToAll——9

mbYesToAll——10

procedure 1Click(Sender: TObject);