Советы по Delphi

         

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


Я не могу разобраться как мне вставить 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?

- Mike Scott [000762]



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