时间的问题

Question

打开程序的时候我就开始记录时间把时间显示到label中我运行好就我都的到。我还要根据我运行时间不同触发其他的事件。各位大哥帮帮忙呀

Answer 1

这个简单，不过以后可能会冲突哦！
procedure TForm1.Button1Click(Sender: TObject);
begin
  timer1.Enabled:=true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
    label1.Caption:=datetimetostr(now);
end;

Answer 2

这个简单，不过以后可能会冲突哦！
procedure TForm1.form1active(Sender: TObject);
begin
  timer1.Enabled:=true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
    label1.Caption:=datetimetostr(now);
end;
  

Answer 3

procedure TForm1.form1active(Sender: TObject);
begin
  timer1.Enabled:=true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
    label1.Caption:=datetimetostr(now);
end;timer的
时差设置为：1

Answer 4

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if datetimetostr(now)='你的时间'  then
             你的事件或者函数end;
不过时差要设置好