简单的Delphi TTimer程序

Question

谁能教我如何在Delphi中用TTimer组件显示一个简单的定时器？我有一个标签，将倒计时从5-0将显示。请帮帮忙。只是一个简单的问题。谢谢

Answer 1

您不会说5和0之间的时间间隔是多少，但我会假设它是秒。你需要定义一个整型的全局变量，初始值为5(我称之为‘倒计时’)，以及一个间隔为1000的计时器。它的OnTimer方法如下所示：

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

当您想要开始倒计时时，启用计时器并将标签的标题设置为“5”。