如何在一各BUTTON中在加上時間的延後執行 |
答題得分者是:careychen
|
lovemari
中階會員 發表:134 回覆:224 積分:76 註冊:2005-08-18 發送簡訊給我 |
小弟在BUTTON1 裡面寫段執行碼
執行之後再尾巴又要啟動 BUTTON2 但希望按下BUTTON1之後的五秒在執行BUTTON2 (每次都要這樣) 該怎麼去做呢?? [code delphi] procedure TForm1.Button1Click(Sender: TObject); begin .................... ................... .................... // 上5秒等待時間 在往下跑 BUTTON2.CLICK end; [/code]
------
Program : Delphi 7 DataBase : Oracle 9i Client : ClientDataSet 編輯記錄
lovemari 重新編輯於 2008-11-27 14:19:50, 註解 無‧
|
careychen
尊榮會員 發表:41 回覆:580 積分:959 註冊:2004-03-03 發送簡訊給我 |
最快的方法是按下 button 後,呼叫一個timer ,這個 Timer 的 interval 是設 5 秒
如果怕 Timer 不準的話,也可以用 MultiThread 來處理,這樣時間的控制就比較準確了~~~ ===================引 用 lovemari 文 章=================== 小弟在BUTTON1 裡面寫段執行碼 執行之後再尾巴又要啟動 BUTTON2 但希望按下BUTTON1之後的五秒在執行BUTTON2 (每次都要這樣) 該怎麼去做呢?? [code delphi] procedure TForm1.Button1Click(Sender: TObject); begin .................... ................... .................... // 上5秒等待時間 在往下跑 BUTTON2.CLICK end; [/code]
------
價值的展現,來自於你用哪一個角度來看待它!! |
lovemari
中階會員 發表:134 回覆:224 積分:76 註冊:2005-08-18 發送簡訊給我 |
你好
大大我有這樣寫過 可是他卻沒有在我按下BUTTON的時候讀秒 卻在我打開程式的時候就開始讀秒 然後我都還沒跑BUTTON01 他就自動跑BUTTON2了 [code delphi] procedure TForm1.Button1Click(Sender: TObject); begin ....................... ....................... ....................... Timer1.Enabled := false; Timer1.Interval := 3000; (*3秒*) Timer1.Enabled := true; BUTTON2.CLICK //程式一開啟3秒就自動執行BUTTON2了 我都還沒點BUTTON1= = end; [/code]
------
Program : Delphi 7 DataBase : Oracle 9i Client : ClientDataSet |
lovemari
中階會員 發表:134 回覆:224 積分:76 註冊:2005-08-18 發送簡訊給我 |
我剛修改成下列方式
是已經不會自己偷跑了 可是變成我執行BUTTON1 BUTTON2 也直接執行了 並沒有等待十秒之後 [code delphi] procedure TForm1.Button1Click(Sender: TObject); begin .... ... Timer2.Interval := 10000; (*10秒*) Button2.Click; end; [/code]
------
Program : Delphi 7 DataBase : Oracle 9i Client : ClientDataSet |
careychen
尊榮會員 發表:41 回覆:580 積分:959 註冊:2004-03-03 發送簡訊給我 |
=_= 看您這樣的回答,您似乎對 Timer 元件不是很了解?
程式中設定 Interval 也只是設定他的觸發時間而已,並沒有啟動他 請改成如下 [code delphi] procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := True; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled := False; Button2.Click; end; [/code] ===================引 用 lovemari 文 章=================== 我剛修改成下列方式 是已經不會自己偷跑了 可是變成我執行BUTTON1 BUTTON2 也直接執行了 並沒有等待十秒之後 [code delphi] procedure TForm1.Button1Click(Sender: TObject); begin .... ... Timer2.Interval := 10000; (*10秒*) Button2.Click; end; [/code]
------
價值的展現,來自於你用哪一個角度來看待它!!
編輯記錄
careychen 重新編輯於 2008-11-27 16:10:20, 註解 無‧
|
lovemari
中階會員 發表:134 回覆:224 積分:76 註冊:2005-08-18 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |