5,927
社区成员




procedure TForm1.Timer1Timer(Sender: TObject); //timer的Interval = 1000;
begin
Label1Click(Sender);
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
Label1.Caption:=FormatDateTime('yyyy年MM月dd日 hh时mm分ss秒', now);
end;