189 8069 5689
本篇文章给大家分享的是有关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自动关闭界面，小编相信有部分知识点可能是我们日常工作会见到或用到的。希望你能通过这篇文章学到更多知识。更多详情敬请关注创新互联行业资讯频道。