Компонент Timer в Delphi задает в приложении интервалы времени. У Таймера есть многочисленные применения: синхронизация мультипликаций, закрытие окон, с которыми пользователь некоторое время не работает, включение экранной заставки или закрытие связующих звеньев с удаленным сервером при отсутствий операций пользователя, регулярное тестирование источников информации, установки времени на отклик в обучающих программах – все эти задачи, в которые требуют задать интервалы времени, используются с помощью таймера.
У Timer в Delphi есть два управляющих свойства: Interval – значение времени в миллисекундах и Enabled – досягаемость. Через установленный интервал времени, таймер срабатывает событием OnTimer. Все заданные операции записываются в обработчике этого события.
При задании интервала (Interval) равного нулю или Enabled = false таймер становится неактивным. Для того, чтобы запустить Timer следует установить Enabled = true, при условии, что Interval – положительное число. Или же установить положительное значение Interval и значение Enabled = false.
К примеру, если нужно, чтобы через 10 секунд после запуска программы закрылась заставка, которая отображает логотип программы, то на заставке нужно разместить таймер и установить Interval = 10000, а в событии установить OnTimer = Close.
Если нужно в какой-то процедуре привести в действие таймер, который отсчитал бы установленный интервал, к примеру 10 секунд, после чего нужно выполнить некоторые операции и выключить таймер, это реализуется: при проектировании устанавливаем Enabled = true и интервал задается 0. Для запуска Timer нужно выполнить оператор Timer1.Inerval := 10000; через 10 секунд в событии OnTimer задать Nimer1.Interval :=0;
Timer в Delphi точно выдерживает установленные интервалы, даже если они велики – тысячи миллисикунд.
Основные свойства:
Enabled – property Enabled: Boolean;
Interval – property Interval: Cardinal;
Событие:
OoTimer – событие происходит, когда истек очередной отрезок времени Interval.