| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как встроить Таймер в компонент [D7, WinXP]

Help Me ©   (2004-11-23 00:37:00) 

Задача такова... Нужно встроить таймер в компонент, наследующийся от TGraphicControl. Заранее благодарен за работающий ответ. Спс.

---

ЮЮ   (2004-11-23 05:26:00) [1]

Ну и что мешает?
type
 TSuperGraphicControl = class (TGraphicControl)
 private
   FTimer: TTimer;  

   procedure OnTimer(Sender: TObject);
 end;

 в конструкторе:
   FTimer := TTimer.Create(nil);
   FTimer.OnTimer := OnTimer;

 в деструкторе    
   FTimer.Enabled := false;
   FTimer.Free    
 
 procedure TSuperGraphicControl.OnTimer(Sender: TObject);
 begin
   // код обработчика по таймеру    
 end;

---

Наверх