Имплантация таймера в компонент
Имплантация таймера в компонент
Имплантация таймера в компонент Иногда бывает необходимость в компоненте что-то делать по таймеру. Вок как можно имплантировать таймер в компонент. 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;
