首页 > 其他分享 >Delphi XE MessageDialogAsync 和 MessageDialogSync [2] - 用法示例

Delphi XE MessageDialogAsync 和 MessageDialogSync [2] - 用法示例

时间:2022-09-30 16:44:47浏览次数:53  
标签:begin end 对话框 Delphi 示例 TMsgDlgBtn MessageDialogAsync MessageDialogSync

Delphi XE MessageDialogAsync 和 MessageDialogSync [2] - 用法示例

1、MessageDialogAsync

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

//MessageDialogAsync
var
  IDiaSerAsync:IFMXDialogServiceAsync;
begin
  if TPlatformServices.Current.SupportsPlatformService
    (IFMXDialogServiceAsync, IInterface(IDiaSerAsync)) then
  begin
    //这里的顺序有点要注意,和 MessageDlg 的不同,默认按钮在帮助之前   //MessageDialogAsync - 异步工作,调用立即完成,它们不会等待用户关闭对话框。
    IDiaSerAsync.MessageDialogAsync('测试 对话框 异步.', 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
    );
  end;
end;

2、MessageDialogSync

//MessageDialogSync
var
  IDiaSerSync:IFMXDialogServiceSync;
begin
  if TPlatformServices.Current.SupportsPlatformService
    (IFMXDialogServiceSync, IInterface(IDiaSerSync)) then
  begin
    //这里的顺序有点要注意,和 MessageDlg 的不同,默认按钮在帮助之前  // MessageDialogSync - 同步工作。只有当用户关闭对话框时,才会完成对调用。
    if IDiaSerSync.MessageDialogSync('测试 对话框 同步.', TMsgDlgType.mtInformation,
        [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], TMsgDlgBtn.mbYes,0)=mrYes then begin
      ShowMessage('yes 对话框 同步')
    end else ShowMessage('No 对话框 同步');
  end;

  

  

  

 

 

 

 

创建时间:2022.09.30  更新时间:

标签:begin,end,对话框,Delphi,示例,TMsgDlgBtn,MessageDialogAsync,MessageDialogSync
From: https://www.cnblogs.com/guorongtao/p/16745373.html

相关文章

  • Delphi XE MessageDlg[3] 返回判定与处理
    DelphiXEMessageDlg[3]返回判定与处理//滔Roy2022.09.30procedureTHeaderFooterForm.MDlgResult1(Sender:TObject;constAResult:TModalResult);beginifARes......
  • 秋色园QBlog技术原理解析:页面内容填充及多语言翻译流程演示示例(十)
    文章回顾:1:​​秋色园QBlog技术原理解析:开篇:整体认识(一)​​--介绍整体文件夹和文件的作用2:​​秋色园QBlog技术原理解析:认识整站处理流程(二)​​--介绍秋色园业务处理......
  • MarkDown 使用说明示例
    一、标题一级标题二级标题三级标题四级标题五级标题六级标题一级标题这是H2这是H3一级和二级标题还有一种写法就是下面加横杆,同时超过2个的=和-都可以有效果。This......
  • less写法示例
    less写法示例<divclass="parentDiv"><divclass="childDiv">childDiv1</div><divclass="childDiv">childDiv2</div><divclass="childDiv">childDiv3</div>......
  • Java Files.walk示例
    转自:https://blog.csdn.net/cyan20115/article/details/106548324Java8中提供了Files.walk API1.列出所有文件。try(Stream<Path>walk=Files.walk(Paths.get("C:......
  • Delphi XE MessageDlg[2] TMsgDlgType、TMsgDlgBtn用法示例1
    DelphiXEMessageDlg[2]TMsgDlgType、TMsgDlgBtn用法示例11、TMsgDlgType //滔Roy2022.09.29MessageDlg('测试mtInformation.',TMsgDlgType.mtInformation,[TMs......
  • 16. HTML-- 布局(附带示例)
    1.前言网页布局是创建一个网站时一个必不可少的过程,通过布局可以改变网页中内容的排列方式,让网页看起来更加合理、美观。在布局的过程中您还可以使用CSS来修改HTML标......
  • 13. HTML-- 注释的写法(附带示例)
    1.前言HTML注释主要用来对文档中的代码进行解释说明,注释也是代码的一部分,但浏览器会自动忽略注释的内容,所以用户在网页中是看不到注释的。我们在编写代码时应该善用注释......
  • bat脚本静默安装软件示例
    @echooffrem设置共享路径名和执行文件名set"Route=\\dc1\netlogon"set"EDR_EXE=edr_installer_192.168.2.221_443.exe"rem不可修改set"ProcessFlag=edr_monitor.exe"......
  • 防火墙规则示例
    九通防火墙规则示例【mysql】firewall-cmd--permanent--add-rich-rule='rulefamily="ipv4"sourceaddress="182.140.146.0/24"portprotocol="tcp"port="3306"acc......