Delphi中实战中如何用FormActivate自动关闭界面
本篇文章给大家分享的是有关Delphi中实战中如何用FormActivate自动关闭界面,小编觉得挺实用的,因此分享给大家学习,希望大家阅读完这篇文章后可以有所收获,话不多说,跟着小编一起来看看吧。
成都创新互联公司主要从事网站设计、成都网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务赣县,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108
下面我们主要讲解支付成功后如何自动关闭支付界面返回数据。
代码演示
我们还是用我们这个支付的项目
回到上章Trade.pas里面的FormActivate里面
如果按正常方式理解,我们应该都写在这个函数里面,当调用返回结果后,最后可以加上个两句代码
sleep(1500);
close;
来实现界面自动关闭。
当我们加上后运行这个程序,发现界面关没有关闭。也就是说,在FormActivate里面加上Close是不起作用的。
那我们应该用什么方式进行处理呢?其实也挺简单,我们加上一个Timer的控件,一个公共参数变量,即可实现。
界面中加上一个Timer的控件
然后在Private里面加入一个boolean的变量
然后在FormShow事件中先定义交易变量为未完成,Timer控制的间隔时间和启动。
bisTradeover := False;
Timer1.Interval := 1500;
Timer1.Enabled := True;
最后在在Timer控件的Timer1Timer写判断,当完成交易标志成功后就延时1.5秒然后关闭当前窗体。
这样我们每隔1.5秒就会自动检测是否完成交易,用来实现我们的窗体关闭。
以上就是Delphi中实战中如何用FormActivate自动关闭界面,小编相信有部分知识点可能是我们日常工作会见到或用到的。希望你能通过这篇文章学到更多知识。更多详情敬请关注创新互联行业资讯频道。
网站标题:Delphi中实战中如何用FormActivate自动关闭界面
网页URL:http://scyanting.com/article/geieds.html