本篇文章給大家分享的是有關(guān)Delphi中實(shí)戰(zhàn)中如何用FormActivate自動(dòng)關(guān)閉界面，小編覺得挺實(shí)用的，因此分享給大家學(xué)習(xí)，希望大家閱讀完這篇文章后可以有所收獲，話不多說，跟著小編一起來看看吧。

成都創(chuàng)新互聯(lián)公司主要從事網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)贛縣,十載網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):18982081108

下面我們主要講解支付成功后如何自動(dòng)關(guān)閉支付界面返回?cái)?shù)據(jù)。

代碼演示

我們還是用我們這個(gè)支付的項(xiàng)目

回到上章Trade.pas里面的FormActivate里面

如果按正常方式理解，我們應(yīng)該都寫在這個(gè)函數(shù)里面，當(dāng)調(diào)用返回結(jié)果后，最后可以加上個(gè)兩句代碼

    sleep(1500);

    close;

來實(shí)現(xiàn)界面自動(dòng)關(guān)閉。

當(dāng)我們加上后運(yùn)行這個(gè)程序，發(fā)現(xiàn)界面關(guān)沒有關(guān)閉。也就是說，在FormActivate里面加上Close是不起作用的。

那我們應(yīng)該用什么方式進(jìn)行處理呢？其實(shí)也挺簡(jiǎn)單，我們加上一個(gè)Timer的控件，一個(gè)公共參數(shù)變量，即可實(shí)現(xiàn)。

界面中加上一個(gè)Timer的控件

然后在Private里面加入一個(gè)boolean的變量

然后在FormShow事件中先定義交易變量為未完成，Timer控制的間隔時(shí)間和啟動(dòng)。

  bisTradeover := False;
  Timer1.Interval := 1500;
  Timer1.Enabled := True;

最后在在Timer控件的Timer1Timer寫判斷，當(dāng)完成交易標(biāo)志成功后就延時(shí)1.5秒然后關(guān)閉當(dāng)前窗體。

這樣我們每隔1.5秒就會(huì)自動(dòng)檢測(cè)是否完成交易，用來實(shí)現(xiàn)我們的窗體關(guān)閉。

以上就是Delphi中實(shí)戰(zhàn)中如何用FormActivate自動(dòng)關(guān)閉界面，小編相信有部分知識(shí)點(diǎn)可能是我們?nèi)粘９ぷ鲿?huì)見到或用到的。希望你能通過這篇文章學(xué)到更多知識(shí)。更多詳情敬請(qǐng)關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道。