Отключить событие OnChange

← →
MaxX (2009-02-02 15:07) [0]

Подскажите как временно отключить событие OnChange у компонента TEdit ?
Дело в том что при передаче текста Едиту таким путем Edit1.Text := "Test"
это событие не должно срабатывать, при изменении в ручную, должно.

← →
Медвежонок Пятачок © (2009-02-02 15:13) [1]

:= nil;

← →
Юрий Зотов © (2009-02-02 15:16) [2]

Edit1.OnChange := nil;
try
...
finally
Edit1.OnChange := Edit1Change
end;

← →
Ega23 © (2009-02-02 15:18) [3]

> Дело в том что при передаче текста Едиту таким путем Edit1.
> Text := "Test"
> это событие не должно срабатывать, при изменении в ручную,
> должно.

procedure SetEditText(Edit : TEdit; const Text : string); var onEditChng : TNotifyEvent; begin if Edit=nil then Exit; try try onEditChng := Edit.OnChange; Edit.OnChange := nil; Edit.Text := Text; finally Edit.OnChange := onEditChng; end; except end; end;

← →
MaxX (2009-02-02 15:23) [4]

Спасибо огромное

Или флаг устанавливать перед изменением, а в OnCnahge проверять значение этого флага.

← →
MaxX (2009-02-02 20:03) [6]

Эхей...Апельсиновый Джо

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