MessageDlg函数是将信息以对话框的形式输出并显示。
如图:
1 function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
函数参数说明:
Msg:显示消息的内容
DlgType:指定消息对话框的类型,
Buttons:指定消息对话框显示得按钮
Longint:指定应显示的帮助标题的正文ID
TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom);
TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp);
从上述可以看出MessageDlg函数是有Integer的返回值的,也叫做模式窗体返回值(ModalResult)。
ModalResult是指一个模式窗体(form.showmodal)的返回值,一般用于相应窗体上按钮的ModalResult属性.显示完窗体(关闭)后,会返回此属性预设的值做为返回值。
返回值可以使用的参数(默认值是mrNone):该属性可以设置为mrOk 、mrCancel...等等
例如:
1 var 2 i: Integer; 3 begin 4 i:= messagedlg('MessageDlg输出信息提示框',mtInformation,mbYesNoCancel,1); 5 if i = mrYes then 6 begin 7 ShowMessage('OnClick The yes'); 8 end; 9 end;