Delphi XE MessageDialog- 显示包含自定义消息、对话框类型、按钮集和帮助上下文ID的对话框。- 可以同步或异步工作

Delphi XE MessageDialog- 显示包含自定义消息、对话框类型、按钮集和帮助上下文ID的对话框。- 可以同步或异步工作

class procedure MessageDialog(
    const AMessage: string; 
    const ADialogType: TMsgDlgType;  
    const AButtons: TMsgDlgButtons; 
    const ADefaultButton: TMsgDlgBtn; 
    const AHelpCtx: THelpContext; 
    const ACloseDialogProc: TInputCloseDialogProc
); overload;
class procedure MessageDialog(const AMessage: string; 
    const ADialogType: TMsgDlgType;  
    const AButtons: TMsgDlgButtons; 
    const ADefaultButton: TMsgDlgBtn; 
    const AHelpCtx: THelpContext; 
    const ACloseDialogEvent: TInputCloseDialogEvent; 
    const AContext: TObject = nil
); overload;

• MessageDialog可以同步或异步工作，具体取决于首选模式。MessageDialog在内部调用MessageDialogAsync或MessageDialogSync。
• 当PreferredMode设置为Platform时：
• 在桌面平台（Windows和OS X）上，MessageDialog的行为是同步的。只有当用户关闭对话框时，调用才会结束。
• 在移动平台（Android和iOS）上，MessageDialog的行为是异步的。调用立即完成，它不会等待用户关闭对话框。
• 要强制不同平台的特定行为，请将PreferredMode设置为Sync或ASync（Android不支持）。

用法示例：

//滔Roy 2022.09.30
uses
  FMX.Platform,    //  IFMXDialogServiceAsync  ,MessageDialogAsync
  FMX.DialogService;  //

//TDialogService类的 MessageDialog封装了同步和异步对话框  ,它会根据平台自动判断异步还是同步 ，相对移动平台的调用这是比较安全的弹框方式
  TDialogService.MessageDialog('测试 对话框 自动.', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], TMsgDlgBtn.mbYes,0,
      procedure(const AResult:TModalResult)
      begin
         if AResult=mrYes then
          ShowMessage('yes 测试 对话框 自动')
         else if AResult=mrNo then
          ShowMessage('No 测试 对话框 自动');
      end
    );

　　

　　

 

创建时间：2022.09.30　　更新时间：