Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > TTimer


Автор: Vas 17.2.2006, 11:35
Подскажите, пожалуйста, как получить время отсчета таймера для отображения, например есть таймер с интервалом 40 секунд, как получить каждую секунду отсчета таймера, чтобы показать пользователю отсчет. Пока в голову приходит только создание второго таймера с интервало 1 сек который будет запускаться и останавливаться вместе с первым, но что-то не нравится мне так.
Есть ли другой способ. На формах бывает такое что пишут форма будет закрыта чере 5..4... секунд, не уж то там два таймера ставят?

Автор: Snowy 17.2.2006, 11:39
Просто заведи глобальный счетчик (переменную типа integer).
а в таймере добавь:
Код

var
  counter: integer;

.....

procedure Form1Timer1  .....
begin
  .....
  inc(counter);
  if counter mod (1000 div Timer1.Interval) = 0 then делать что-то // происходит раз в секунду
end;

Автор: Vas 17.2.2006, 11:42
Snowy, спасибо! В принципе, такая идея меня уже постигала, но думал может как-то красивее можно.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)