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

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

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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不支持）。

用法示例：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

//滔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　　更新时间：