Советы по 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]
