Скачать: CL | DM;

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

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.011 c