Delphi 1
Имплантация таймера в компонент
Я не могу разобраться как мне вставить 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]