Главная Всё о Delphi Регистрация

Вход

Приветствую Вас Гость | RSSВторник, 18.12.2018, 21:15
Меню сайта

Категории каталога
Начинающим [44]
Материалы для начинающих
Трюки [2]
Трюки
Разное [94]
Материалы на разные темы

Наш опрос
Какой версией Delphi вы пользуетесь?
Всего ответов: 118

Каталог статей
Главная » Статьи » Начинающим

Урок 26. Работа с таймером

Изучим основы работы с таймером. Таймер - это компонент, имеющий только одно одноименное событие. Это событие таймер генерирует через определенные промежутки времени. С технической же точки зрения таймер просто посылает окну сообщение 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 таймера некоторое первоначальное значение.

Всё на этом урок закончен.

Категория: Начинающим | Добавил: Дубин (23.08.2007) | Автор: Дубин Михаил Олегович
Просмотров: 1998 | Комментарии: 1 | Рейтинг: 1.0/1 |

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Друзья сайта

Статистика

Рейтинг@Mail.ru

Реклама

Copyright MyCorp © 2018Сайт управляется системой uCoz