Показать сообщение отдельно
  #4  
Старый 25.03.2009, 02:17
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,020
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Сделай отсечку времени в момент начала работы таймера 1 и потом выводи разницу между запомненым и текущим временами.

Типа:
Код:
var
  TimeBegin : TDateTime;

procedure TForm1.Timer1Timer(Sender : TObject);
begin
  TimeBegin := Now;
  ...
end;

procedure TForm1.Timer2Timer(Sender : TObject);
begin
  Label1.Caption := TimeToStr(Now - TimeBegin);
end;
Ответить с цитированием