Delphi XE MessageDialogAsync 和 MessageDialogSync [1] - 显示包含自定义消息、对话框类型、按钮集和帮助上下文ID的对话框。 - 滔Roy

Delphi XE MessageDialogAsync 和 MessageDialogSync [1] - 显示包含自定义消息、对话框类型、按钮集和帮助上下文ID的对话框。

Delphi XE MessageDialogAsync 和 MessageDialogSync - 显示包含自定义消息、对话框类型、按钮集和帮助上下文ID的对话框。

1、MessageDialogAsync - 异步工作，调用立即完成，它们不会等待用户关闭对话框。

procedure MessageDialogAsync(
　　const AMessage: string;  //文字信息。
　　const ADialogType: TMsgDlgType;  //对话框类型。
　　const AButtons: TMsgDlgButtons;  //一组按钮
　　const ADefaultButton: TMsgDlgBtn; //默认情况下具有焦点的按钮
　　const AHelpCtx: THelpContext; //帮助上下文ID
　　const ACloseDialogProc: TInputCloseDialogProc   //用户关闭对话框后调用的匿名方法
); overload;
procedure MessageDialogAsync(
　　const AMessage: string; 
　　const ADialogType: TMsgDlgType; 
　　const AButtons: TMsgDlgButtons;  
　　const ADefaultButton: TMsgDlgBtn; 
　　const AHelpCtx: THelpContext; 
　　const ACloseDialogEvent: TInputCloseDialogEvent;  //用户关闭对话框后调用的事件处理程序。
　　const AContext: TObject = nil 　　//可选对象，可以作为分配给ACloseQueryEvent的事件处理程序的上下文提供。
); overload;

注意：“帮助”按钮不会触发调用，因为它不会关闭对话框。

此函数支持的平台：

Platform	Support
Windows	√
macOS	√
iOS	√
Android	√

2、MessageDialogSync - 同步工作。只有当用户关闭对话框时，才会完成对调用。

function  MessageDialogSync(
    const AMessage: string; 
    const ADialogType: TMsgDlgType; 
    const AButtons: TMsgDlgButtons;  
    const ADefaultButton: TMsgDlgBtn; 
    const AHelpCtx: THelpContext
): Integer;