Я не могу разобраться как мне вставить TTimer в мой компонент и
получить доступ к его методам и свойствам. Я нигде не могу найти пример такого
использования таймера. Кто-нибудь может мне помочь?
Я просто создал это для вас:
type
TMyControl = class(TCustomControl)
private
FTimer: 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?
Статья Имплантация таймера в компонент раздела Компоненты и Классы TTimer может быть полезна для разработчиков на Delphi и FreePascal.
