求delphi计时器代码

来源：百度知道 编辑：UC知道 时间：2024/07/01 12:37:49
初学delphi，所以问题就是很简单！我用delphi做一个计时器，只用一个Tlabel组件来显示就可以了．请问怎么做？代码要具体详细些！在标签上显示的模式是：00:00:00，单位：S，怎么实现？请大家多多指教．
我知道用TIMER可不知道代码怎么写啊.大哥?帮忙把代码打上来吧

再放个Timer，用Timer减需要开始计时的那个时间点，显示在Label上就行了。

放一个Timer控件（在system栏下）
双击进入代码编辑

在写入代码：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := TimeToStr(Now());
end;

procedure TForm1.Timer1Timer(Sender:Object);
begin
Label1.Caption:=FormatDateTime('hh:mm:ss',now)+'S';
end;