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

Отключить событие 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]

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

---

← →
Джо ©   (2009-02-02 18:24) [5]

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

---

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

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

---

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

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



Память: 0.46 MB
Время: 0.017 c