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