delphi - 简单的 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”。