当前位置: 首页 > news >正文

刘娇娇做网站骗钱的cba最新消息

刘娇娇做网站骗钱的,cba最新消息,网站开发招标书,wordpress和阿里云大家知道,用Delphi实现一个Form,并用ShowModal显示出来,在Android平台是非阻塞的,即执行了Form.ShowModal,代码会继续往下执行而不是等待,这跟在Windows平台是完全不一样的。如果我们需要类似阻塞的效果&am…

大家知道,用Delphi实现一个Form,并用ShowModal显示出来,在Android平台是非阻塞的,即执行了Form.ShowModal,代码会继续往下执行而不是等待,这跟在Windows平台是完全不一样的。如果我们需要类似阻塞的效果,该如何实现呢?

1.先建一个Form,跟通常的情况一样。

2.为Form实现具体的内容,这按你的需要了。

3.在窗口的单元中实现一个方法,用来显示这个窗口:

procedure ShowPrivacyForm(AFormResult: TProc<TModalResult>);
implementation{$R *.fmx}
//调用方法:
//   ShowPrivacyForm(
//    procedure(AResult: TModalResult)
//    begin
//
//    end);varPrivacyForm: TPrivacyForm;//声明一个私有变量procedure ShowPrivacyForm(AFormResult: TProc<TModalResult>);
beginif not assigned(PrivacyForm) thenbeginPrivacyForm := TPrivacyForm.Create(Application);end;PrivacyForm.ShowModal(procedure(AResult: TModalResult)beginAFormResult(AResult);//这里执行回调TTask.Run(procedurebeginTThread.Synchronize(nil,procedurebeginPrivacyForm.DisposeOf;//释放这个窗口PrivacyForm := nil;end);end);end);
end;

4.显示这个窗口,首先引用Form所在的单元,然后调用显示窗口的方法ShowPrivacyForm:

        ShowPrivacyForm(procedure(AResult: TModalResult)beginif AResult=mrCancel thenbeginClose;endelsebegin//用户点击了确定接钮 end;end);

5.细节处理,接管Android手机的返回键,当用户按返回键,相当于点击取消操作:

procedure TPrivacyForm.FormKeyUp(Sender: TObject; var Key: Word;var KeyChar: Char; Shift: TShiftState);
beginif Key = vkHardwareBack thenself.ModalResult := mrCancel;
end;

6.注意的一个小坑,看下面的代码:

procedure TPrivacyForm.CCButton1Click(Sender: TObject);
beginself.ModalResult := mrOk; //这句直接关闭窗口,不用再执行Close方法
// Close;
end;

原来我执行了Close,发现窗口返回的值为mrCancel。在Windows平台跟踪发现原来是Close执行后的结果,把这行注释掉,执行正常,原来Self.ModalResult:=mrOK这一句会自动关闭窗口,下面的Close是多余的了。

好了,一个完美的ShowModal窗口实现了!

核心代码引用专家的ChinaCock组件包中的Demo,这里表示感谢!

Delphi 11.3 测试通过。

 

http://www.dinnco.com/news/39348.html

相关文章:

  • 乐清做网站建设大数据分析网站
  • 图书网站开发的实践意义专门搜索知乎内容的搜索引擎
  • 聚美网站开发开题报告网站优化排名易下拉排名
  • 网站建设与管理教学视频下载百度站长工具验证
  • 许昌做网站公司哪家专业百度云群组
  • 岳阳网站开发开封网站推广
  • 网站建设的意义app推广代理平台
  • 怎么做网站的seo排名知乎优化网站的意思
  • 网站悬浮窗怎么做盲盒
  • 建设网站熊掌号郑州网络推广团队
  • 常用的设计网站seo优化教程培训
  • 烟台做网站哪家好域名查询大全
  • 做网站技巧制作自己的网页
  • 网站怎么申请备案seo检测
  • 专门做ppt的网站名称seo品牌优化整站优化
  • 专业做化妆品的网站杭州搜索引擎排名
  • 丽水手机网站建设互动营销经典案例
  • 南昌建站价格网络优化培训要多少钱
  • 如何制作旅游网站品牌营销推广
  • wordpress导航跟随无锡网站优化
  • 连云港网站制作公司哪家好公司推广方法有哪些
  • 新开传奇网站195合击app推广的常用方法
  • 企业做网站需要提供什么资料常见的网络营销方式
  • 高校建设主流网站seo客服
  • web网站开发的基本流程百度快速优化推广
  • 百度权重3的网站值多少企业网站建设论文
  • 深圳做微商网站制作智慧软文发布系统
  • 网站建设与维护教程轻饮食网络推广方案
  • 美工做图片网站网络营销推广的方式有哪些
  • 采购网站模板秦皇岛百度推广