簡單的德爾菲TTimer程序

Question

任何人都可以幫助我如何顯示一個簡單的計時器使用Delphi中的TTimer組件？我有一個標籤，將顯示5-0的倒計時。請幫忙。只是一個簡單的。謝謝

Answer 1

你不說5到0之間的時間間隔是多少，但我認爲它是秒。需要定義整數類型的全局變量爲5的初始值（I將稱之爲「倒計時」），並用1000及其計時器觸發方法的間隔的定時器將會如下：

Procedure Timer1Timer (sender: TObject); 
begin 
if countdown > 0 then 
    begin 
    dec (countdown); 
    label1.caption:= inttostr (countdown) 
    end 
else timer1.enabled:= false 
end; 

當您想要開始倒數計時時，啓用計時器並將標籤的標題設置爲'5'。