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;
此函数支持的平台:
Platform | Support |
---|---|
Windows | |
macOS | |
iOS | |
Android |
不支持安卓调用。
创建时间:2022.09.30 更新时间:
标签:const,自定义,对话框,Delphi,MessageDialogAsync,按钮,上下文,MessageDialogSync From: https://www.cnblogs.com/guorongtao/p/16743908.html