Блокировка события

← →
Mikhalyov Dmitry (2001-12-19 14:53) [0]

Подскажите как можно блокировать вызов события(например чтобы Edit1.OnChange выполнялось когда я захочу а не каждый раз при изменении Edit1)

← →
Digitman © (2001-12-19 14:55) [1]

когда "не хочешь", установи Edit1.OnChange:= nil. Восстанови его на место, когда "снова захочешь"

Вариант:

const
stOnChange : boolean = true;

procedure TForm1.Edit1Change;
begin
if not stOnChange then exit;
...
end;

ставиш stOnChange := False - код в событии не отрабатывает.

Блокировка события Найти похожие ветки