delphi Delphi MessageDlg - 用途和秘密

对话消息对于与用户的双向通信非常重要。

在 Delphi 中，处理消息的函数在Dialogs 单元中，对于 VCL 和 FMX。

使用 MessageDlg 函数，我们可以向用户显示一个带有对话框（字符串）和一个或多个按钮作为响应的框，指向其中一个作为默认按钮。

MessageDlg 的声明

MessageDlg函数的声明如下：

function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer; overload;

function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; DefaultButton: TMsgDlgBtn): Integer; overload;

Msg：在 Msg 参数（字符串类型）中，我们发送要与用户通信的文本。

DlgType：在这个参数（类型为 TMsgDlgType）中，我们向 Delphi 指示我们想要显示的对话框类型，其中我们可以找到：

• mtWarning 警告

• mtError 错误

• mtInformation 信息

• mtConfirmation 确认

• mtCustom 自定义

按钮：在按钮参数（TMsgDlgButtons 类型）中，我们将向用户发送我们想要显示的按钮类型，以便他们可以选择一种作为响应，可用的按钮类型有：

• mbOK 确定

• mbCancel 取消

• mbYes 是的

• mbNo 取消

• mbAbort 中止

• mbRetry 重试

• mbIgnore 忽略

• mbAll 全部

• mbNoToAll

• mbYesToAll

• mbClose 关闭

HelpCtx：在必需参数（longint 类型）中，我们有 HelpCtx，它指定当用户单击帮助按钮或在显示对话框时按 F1 时应出现的帮助上下文的 ID。

DefaultButton : 可选参数（TMsgDlgButtons 类型），指示默认按钮，如果我们放置mbNone将没有默认按钮。 

MessageDlg 示例

Uses Dialogs

...

procedure TForm1.Button1Click(Sender: TObject);

begin

  if MessageDlg('Está seguro de salir del sistema?',

    mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then

  begin

    MessageDlg('Saliendo del sistema.', mtInformation,

      [mbOk], 0, mbOk);

    Close;

  end;

end;