简单的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".