Изучим основы работы с таймером. Таймер - это компонент, имеющий только одно одноименное событие. Это событие таймер генерирует через определенные промежутки времени. С технической же точки зрения таймер просто посылает окну сообщение WM_TIMER. Этот компонент расположен на вкладке System палитры компонентов.
Перенесите его на форму. Основное свойство для таймера - это Interval. Оно определяет (в миллисекундах), как часто наш компонент будет генерировать событие Timer. Например, если мы установим его значение в 1000, то событие Timer будет генерироваться раз с секунду, а если установим в 500 - то 2 раза в секунду. Если же это свойство установить в 0, то наше событие вообще генерироваться не будет.
Для примера рассмотрим, как наша программа раз в секунду может издавать звуковой сигнал. Для этого установите Interval в 1000, затем в заготовке для события таймера (для ее получения перейдите на вкладку Events инспектора объектов и сделайте двойной щелчок в строке OnTimer).
Внесите следующий код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
MessageBeep(0); //Звуковой сигнал
end;
Запускайте программу. Раз в секунду будет раздаваться стандартный звуковой сигнал.
А вот как можно заставить таймер выполнить некоторое действие однократно:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:=0; //Отключаем таймер
... //Некоторое действие
end;
Разумеется, в этом случае необходимо установить для свойства Interval таймера некоторое первоначальное значение.
Всё на этом урок закончен.