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 更新时间:
标签:异步,同步,const,自定义,对话框,Delphi,TMsgDlgBtn,MessageDialog From: https://www.cnblogs.com/guorongtao/p/16745407.html