简单的德尔菲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'。