Отключение события

← →
VJar (2002-04-22 23:29) [0]

Допустим я использую компонент Timer и в его событии
написано следущее:

procedure TForm1.Timer1Timer(Sender: TObject);
var DT:TDateTime;
s:string;
begin
Form1.Caption:= TimeToStr(DT);
end;

Если мне нужно на нужном этапе программы остановить
работу этого события, то как это зделать?
Один способ - это использование переменной типа
boolean и изменение ее на этапе программы:

var f:boolean;
.............
{сначала f:= true}
procedure TForm1.Timer1Timer(Sender: TObject);
var DT:TDateTime;
s:string;
begin
if f then Form1.Caption:= TimeToStr(DT);
end;

А как по другому, что б не проверялось постоянно
условие "if f then", а вобще отключить событие
OnTimer???

← →
kull © (2002-04-22 23:39) [1]

Timer1.Enabled := False;

Отключение события Найти похожие ветки