Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Курс видеоуроков КРЭКЕРСТВО + ПРОГРАММИРОВАНИЕ 2017
(актуальность: июнь 2017)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Имплантация таймера в компонент

Автор: Mike Scott

Я не могу разобраться как мне вставить TTimer в мой компонент и получить доступ к его методам и свойствам. Я нигде не могу найти пример такого использования таймера. Кто-нибудь может мне помочь?

Я просто создал это для вас:


 type
   TMyControl = class(TCustomControl)
   private
     FTimer: TTimer;
     procedure TimerEvent(Sender: TObject);
   public
     constructor Create(AOwner: TComponent); override;
   end;
 
 constructor TMyControl.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
   FTimer := TTimer.Create(Self);
   FTimer.Interval := 100; { 100 ms }
   FTimer.OnTimer := TimerEvent;
 end;
 
 procedure TMyControl.TimerEvent(Sender: TObject);
 begin
   { вот ваш обработчик события, который вызывается при каждом
   срабатывании таймера - делайте здесь все что вам необходимо }
 end;
 

Легче не бывает! Правда, есть за что любить Delphi?




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS