Имплантация таймера в компонент
Автор: Mike Scott
Я не могу разобраться как мне вставить 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?
|
