Delphi中实战中如何用FormActivate自动关闭界面

本篇文章给大家分享的是有关Delphi中实战中如何用FormActivate自动关闭界面，小编觉得挺实用的，因此分享给大家学习，希望大家阅读完这篇文章后可以有所收获，话不多说，跟着小编一起来看看吧。

下面我们主要讲解支付成功后如何自动关闭支付界面返回数据。

代码演示

我们还是用我们这个支付的项目

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