Delphi中Messagedlg用法

1 if MessageDlg('即将退出，是否继续？', 
2 mtConfirmation, [mbYes, mbNo], 0) = mrYes then
3 begin
4 Close; 
5 end;

对话框类型：

mtwarning——含有感叹号的警告对话框
mterror——含有红色叉符号的错误对话框
mtinformation——含有蓝色i符号的信息对话框
mtconfirmation——含有绿色问号的确认对话框
mtcustom——不含图标的一般对话框，对话框的标题是程序的名称

按钮组中的按钮：

 1 mbYes——mrYes或6
 2 mbNo——mrNo或7
 3 mbOk——mrOk或1
 4 mbCancel——mrCancel或2
 5 mbHelp——help按钮
 6 mbAbort——mrAbort或3
 7 mbRetry——mrRetry或4
 8 mbIgnore——mrIgnore或5
 9 mbAll——mrAll或8
10 mbNoToAll——9
11 mbYesToAll——10

 1 procedure TForm1.Button1Click(Sender: TObject);
 2 var
 3 S:string;
 4 begin
 5 if MessageDlg('提示框',mtInformation,[mbok,mbyes],0)=mryes then
 6       messagebeep(MB_ICONEXCLAMATION);
 7 end;
 8 TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom);
 9 
10 TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
11     mbAll, mbNoToAll, mbYesToAll, mbHelp);
12 const
13 mrNone     = 0;
14 mrOk       = idOk;
15 mrCancel   = idCancel;
16 mrAbort    = idAbort;
17 mrRetry    = idRetry;
18 mrIgnore   = idIgnore;
19 mrYes      = idYes;
20 mrNo       = idNo;
21 mrAll      = mrNo + 1;
22 mrNoToAll = mrAll + 1;
23 mrYesToAll = mrNoToAll + 1;