Показать сообщение отдельно
  #3  
Старый 25.03.2009, 02:10
"Hatchet" Harry "Hatchet" Harry вне форума
Прохожий
 
Регистрация: 22.03.2009
Сообщения: 30
Репутация: 10
По умолчанию

Виноват, не пояснил: у меня таймер (Timer1) с интервалом 20 минут работает, поэтому ему на событие OnTime нельзя назначить, чтобы он собственное время работы в TimerLabel.Caption присваивал!
Сам только что допёр до такого способа: добавил на форму еще 1 таймер который уже работывает с интервалом в 1 секунду и, соответственно, на событие OnTimer я ему назначаю присвоение TimerLabel.Caption времени работы первого таймера. . Вот так мы и получаем динамичную обнову лейбла т.к. интервал у нас - 1 секунда на этом таймере)
Код:
procedure TForm.Timer2Timer(Sender: TObject);
begin
 TimerLabel.Caption := TimeToStr(Time);
end;
Только вот теперь в чем проблема:
TimeToStr(Time) - этим мы выводим системное время, а мне нужно как-то время работы таймера1 с начала его запуска вывести.
Ответить с цитированием