Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как сделать таймер ?

Автор: Frai 19.5.2005, 06:48

Народ подскажите как можно реализовать посекундный таймер чтобы
показывал только секунды.

Автор: s-mike 19.5.2005, 07:47

Есть такой компонент - TTimer, у него есть событие OnTimer. Вот его обрабатывать, и будет посекундный таймер.

Автор: Payne 19.5.2005, 08:52

Приведу пример, чтобы вы наверняка поняли.
Компонент TTimer находится на вкладке System палитры компонентов. Он имеет нужное вам свойство (Interval) и нужное событие (OnTimer). Свойство Interval отвечает за промежуток времени в миллисекундах, через который будет срабатывать событие OnTimer. Если вам нужно создать таймер, который будет показывать только секунды, ставьте свойство Interval равным 1000 (миллисекунд).
С этим вроде разобрались. Теперь бросаем на форму компонент TLabel, его Caption делаем равным '0', в разделе var после Form1: TForm1; пишем еще одну переменную - sec: integer = 0;
Создаем для TTimer обработчик события OnTimer, в котором нужно написать всего две строки кода:

Код


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  sec := sec + 1;  //увеличиваем секунды на одну
  Label1.Caption := IntToStr(sec);  //и выводим новое значение на TLabel
end;

Теперь у нас есть простейший секундомер smile