timer is set to one second
计时器设置为一秒钟
procedure TForm1.Timer1Timer(Sender: TObject);
begin
caption := Format('%s', [FormatDateTime('hh:nn:ss.zzz', Frac(GetTime))])
end;
protimer is set to one second
计时器设置为一秒钟
procedure TForm1.Timer1Timer(Sender: TObject);
begin
caption := Format('%s', [FormatDateTime('hh:nn:ss.zzz', Frac(GetTime))])
end;
pro