Советы по Delphi

       

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


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

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

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

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

- Mike Scott [000762]



Содержание раздела