Отключение события [D5, Win95/98]
VJar © (2002-04-22 23:29:00)
Допустим я использую компонент 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:00) [1]
Timer1.Enabled := False;
Наверх 
ЧАТ |
Орешник |
|
