1、Delphi XE10 MessageDlg 介绍
原型:
function MessageDlg(const AMessage: string; const ADialogType: TMsgDlgType; const AButtons: TMsgDlgButtons; const AHelpContext: THelpContext): Integer; begin Result := MessageDlgPosHelp(AMessage, ADialogType, AButtons, AHelpContext, -1, -1, ''); end; procedure MessageDlg(const AMessage: string; const ADialogType: TMsgDlgType; const AButtons: TMsgDlgButtons; const AHelpContext: THelpContext; const ACloseDialogProc: TInputCloseDialogProc); begin MessageDlgPosHelp(AMessage, ADialogType, AButtons, AHelpContext, -1, -1, '', ACloseDialogProc); end; procedure MessageDlg(const AMessage: string; const ADialogType: TMsgDlgType; const AButtons: TMsgDlgButtons; const AHelpContext: THelpContext; const ACloseDialogEvent: TInputCloseDialogEvent; const AContext: TObject); begin MessageDlgPosHelp(AMessage, ADialogType, AButtons, AHelpContext, -1, -1, '', ACloseDialogEvent, AContext); end; function MessageDlg(const AMessage: string; const ADialogType: TMsgDlgType; const AButtons: TMsgDlgButtons; const AHelpContext: THelpContext; const ADefaultButton: TMsgDlgBtn): Integer; begin Result := MessageDlgPosHelp(AMessage, ADialogType, AButtons, AHelpContext, -1, -1, '', ADefaultButton); end; procedure MessageDlg(const AMessage: string; const ADialogType: TMsgDlgType; const AButtons: TMsgDlgButtons; const AHelpContext: THelpContext; const ADefaultButton: TMsgDlgBtn; const ACloseDialogProc: TInputCloseDialogProc); begin MessageDlgPosHelp(AMessage, ADialogType, AButtons, AHelpContext, -1, -1, '', ADefaultButton, ACloseDialogProc); end; procedure MessageDlg(const AMessage: string; const ADialogType: TMsgDlgType; const AButtons: TMsgDlgButtons; const AHelpContext: THelpContext; const ADefaultButton: TMsgDlgBtn; const ACloseDialogEvent: TInputCloseDialogEvent; const AContext: TObject); begin MessageDlgPosHelp(AMessage, ADialogType, AButtons, AHelpContext, -1, -1, '', ADefaultButton, ACloseDialogEvent, AContext); end;
2、Delphi XE10 MessageDlg 用法
示例:
MessageDlg ('Error while connecting:'+#13+E.Message, TMsgDlgType.mtError, [TMsgDlgBtn.mbOk], 0);
3、参数(TMsgDlgType 、TMsgDlgBtn、TMsgDlgType )
TMsgDlgType :
- mtWarning,
- mtError,
- mtInformation,
- mtConfirmation,
- mtCustom
TMsgDlgBtn
- mbYes,
- mbNo,
- mbOK,
- mbCancel,
- mbAbort,
- mbRetry,
- mbIgnore,
- mbAll,
- mbNoToAll,
- mbYesToAll,
- mbHelp,
- mbClose
TMsgDlgType
- mtWarning,
- mtError,
- mtInformation,
- mtConfirmation,
- mtCustom
创建时间:2020.06.01 更新时间:2020.06.04