Только желательно переменную ATimer описать в классе формы
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | TForm1 = class(TForm)
...
ATimer: TTimer;
procedure MyTimerEvent(Sender : TObject);
procedure CreateMyTimer;
end;
procedure TForm1.CreateMyTimer;
begin
ATimer := TTimer.Create(Self);
ATimer.Parent := Self;
ATimer.OnTimer := MyTimerEvent;
ATimer.Interval := 200;
ATimer.Enabled := True;
end;
|
Иначе по завершении процедуры CreateMyTimer потеряется ссылка на него, и вы не сможете к нему легко обратиться, придется сначала его найти.
28.03.2010, 23:32
Древовидный вид