全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1283
推到 Plurk!
推到 Facebook!

關於如何作出像馬表的計數器

答題得分者是:P.D.
superbomb
一般會員


發表:3
回覆:2
積分:1
註冊:2009-05-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-05-23 14:02:08 IP:60.249.xxx.xxx 訂閱
如何寫出當按下一個按鈕後,話面會顯示計數器。
由於新手上路,希望能給我一些意見,謝謝。
max5020
資深會員


發表:30
回覆:277
積分:321
註冊:2003-06-04

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-05-23 23:40:28 IP:122.146.xxx.xxx 訂閱
加乙個Timer元件,
並在OnTimer事件加入顯示時間的功能即可!!
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-05-24 00:01:01 IP:61.67.xxx.xxx 未訂閱
既是新手, 相信你一定沒有先看過版規! 要不然怎麼會發到這區來?
superbomb
一般會員


發表:3
回覆:2
積分:1
註冊:2009-05-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-05-24 08:47:15 IP:60.249.xxx.xxx 訂閱
感謝回應.....
而對於文章發表,感到抱歉,我會看好規定。
superbomb
一般會員


發表:3
回覆:2
積分:1
註冊:2009-05-14

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-05-24 08:55:50 IP:60.249.xxx.xxx 訂閱
對於文章發表錯誤,有些想問:
為什麼在發表文章,選Delphi的選項,就發表至此。
我在新手區發表的,請問如何正確選到想發表的區域,謝謝。
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#6 引用回覆 回覆 發表時間:2009-05-24 10:08:14 IP:61.67.xxx.xxx 未訂閱



[code delphi]
// allsecond 為一public 變數, 指定啟始長度
procedure TForm_CountDown.Timer1Timer(Sender: TObject);
var beginTime:longInt;
endTime: longInt;
begin
Timer1.Enabled:= False;
beginTime:= GetTickCount;
repeat
endTime:= GetTickCount;
Application.ProcessMessages;
if endTime - beginTime >= 1000 then begin
Dec(allSeconds);
Dec(hSeconds);
if hSeconds < 0 then begin
Dec(hMinutes);
hSeconds:= 59;
end;
if allSeconds > 0 then begin
Label_TimeShow.Caption:= Format('%.2d.%.2d',[hMinutes,hSeconds]);
Label_TimeShow.Update;
end;
beginTime:= GetTickCount;
end;
until allSeconds <= 0;
end;
[/code]

2.如果你確定文章是發在新手區, 但卻轉到資料庫區, 那建請向站務人員反應, 但99%的機率是自己不小心看錯區
===================引 用 superbomb 文 章===================
對於文章發表錯誤,有些想問:
為什麼在發表文章,選Delphi的選項,就發表至此。
我在新手區發表的,請問如何正確選到想發表的區域,謝謝。
系統時間:2024-05-17 5:27:14
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!