Скачать: CL | DM;

Как встроить Таймер в компонент   Найти похожие ветки 

← →
Help Me   (2004-11-23 00:37) [0]

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

---

← →
ЮЮ ©   (2004-11-23 05:26) [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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.023 c