Delphi XE10 MessageDlg 介绍和用法

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