MessageDlg

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;

猜你喜欢

转载自www.cnblogs.com/fansizhe/p/12636066.html
今日推荐