Добавляем TTImer в программу
Фиксируем начальное время и запускаем таймер в OnCreate или на какой-то кнопке
|
1 2 |
FStartDateTime:=Now(); tWorkingTime.Enabled:=True; |
Обработка таймера
|
1 2 3 4 5 6 7 |
procedure TfHTTPServer.tWorkingTimeTimer(Sender: TObject); var workingTime: TDateTime; begin workingTime := Now - FStartDateTime; lTimeOfWorking.Caption := FormatDateTime('hh:mm:ss',WorkingTime); end; |
Люблю быстрые и простые решения