請問一下基本問題....有關 Timer 這個... |
|
|
|
nico1980
一般會員   發表：1 回覆：0 積分：0 註冊：2003-06-10 發送簡訊給我 |
|
|
P.D.
版主   發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
引言: 在小弟的愚見之下 知道 Timer 這是一個時間控制器... 但是我想知道的是 她能操縱logo出現的時間..... 如果希望logo出現的時間要長一點的話...... 譬如說要使執行系統時...開機logo時間 希望她能出現三秒的話... 那麼我該如何去下這個參數呢.... 希望各位大哥大姐 幫忙解答一下 謝謝建置一個 TTimer 到 form1 上 在要啟動Timer之前下 timer1.interval:= 500; timer1.eanbled:= true; 在 onTimer Event 上寫
procedure TForm1.Timer1Timer(Sender: TObject);
var bTime, eTime: int64;
begin
label1.caption:= 'start timer';
bTime:= getTickCount;
eTime:= getTickCount;
Timer1.Enabled:= False;
repeat
Application.ProcessMessages;
eTime:= getTickCount;
until eTime-bTime > 3000;
label1.caption:= 'end timer';
end;
實際運作, label可以拿掉 或者更簡單的做法, 在logo出現後下 sleep(3000)就好了
不管其他的後遺症 發表人 - P.D. 於 2003/06/11 02:27:14
|
發表時間：2003-06-10 23:45:23
IP:61.219.xxx.xxx 未訂閱
系統時間：2024-06-01 22:57:36
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |