OnChange - игнор

← →
chir (2005-01-09 22:35) [0]

Можно ли как нибудь сделать так, чтобы на
Edit1.Text := "lalala";
Не срабатывало событие OnChange?

← →
DrPass © (2005-01-09 22:39) [1]

Edit1.OnChange:=nil;
Edit1.Text := "lalala";
Edit1.OnChange:=Edit1Change;

← →
chir (2005-01-09 23:16) [2]

какой здоровский совет однако!
спасибо преогроменное! :)

← →
pasha_golub © (2005-01-10 11:41) [3]

А можно узнать, зачем?

← →
www.Vlad.uk (2005-01-10 11:54) [4]

Хук ставь!

← →
pasha_golub © (2005-01-10 12:25) [5]

www.Vlad.uk (10.01.05 11:54) [4]
Ага, хук слева, хук справа....

← →
begin...end © (2005-01-10 12:27) [6]

> [3] pasha_golub © (10.01.05 11:41)

Разве не может возникнуть ситуация, когда требуется отслеживать только изменения edit"а, сделанные пользователем?

← →
pasha_golub © (2005-01-10 12:30) [7]

begin...end © (10.01.05 12:27) [6]
Может. :0) Спасибо за пример

← →
pasha_golub © (2005-01-10 12:38) [8]

begin...end © (10.01.05 12:27) [6]
Все равно неудачный, если изменения сделаны програмно можно завести флажок, а в OnChange его опрашивать и сбрасывать.

← →
begin...end © (2005-01-10 13:36) [9]

> [8] pasha_golub © (10.01.05 12:38)

А зачем заводить флажок, если можно обойтись и без флажка? :-)

Но вот ещё пример. Допустим, требуется изменять (как-нибудь преобразовывать) текст edit"а в самом обработчике OnChange.

Вот код обработчика Edit1.OnChange (высосанный из пальца):

var I: Integer; S: String; begin with (Sender as TEdit) do begin S := Text; for I := 1 to Length(S) do S[I] := Chr(Ord(S[I]) + 1); Text := S end end.

Присвоение значения свойству Text снова вызывает обработчик OnChange, и... ничего хорошего из этого не выйдет.

Здесь-то и можно поступить так, как написано выше:

var I: Integer; S: String; begin with (Sender as TEdit) do begin OnChange := NIL; S := Text; for I := 1 to Length(S) do S[I] := Chr(Ord(S[I]) + 1); Text := S; OnChange := Edit1Change end end.

Хотя последняя выделенная строка - это тоже не есть хорошо. Я бы сохранял старый обработчик события, а потом восстанавливал его:

var ... OldChange: TNotifyEvent; begin with (Sender as TEdit) do begin OldChange := OnChange; OnChange := NIL; // Здесь - манипуляции с Text OnChange := OldChange end end.

← →
Gero © (2005-01-10 13:39) [10]

> var
> ...
> OldChange: TNotifyEvent;
> begin
> with (Sender as TEdit) do
> begin
> OldChange := OnChange;
> OnChange := NIL;
> // Здесь - манипуляции с Text
> OnChange := OldChange
> end
> end.

Угу, пожалуй лучший вариант.

← →
A.S.D. (2005-01-10 13:46) [11]

> begin...end © (10.01.05 13:36) [9]

А ещё лучше оформить процедуру установки значения Edit:
procedure SetEditText(Edit: TEdit; NewText: string);
var
OldOnChange: TNotifyEnent;
begin
OldOnChange := Edit.OnChange;
Edit.OnChange:= NIL;
Edit.Text := NewText;
Edit.OnChange:= OldOnChange;
end;

← →
chir (2005-01-14 00:42) [12]

> A.S.D.
Отличная идея! :) ща переделаю... а то у меня штук 20 подряд идет подобного текста:

cxTE_surname.Properties.OnChange := nil;
cxTE_surname.Text := DM.ADOQ2.FieldByName("surname").AsString;
cxTE_surname.Properties.OnChange := cxFIOPropertiesChange;

спасибо всем!

← →
chir (2005-01-14 00:47) [13]

> A.S.D

а еще лучше вот так:

procedure SetEditText(Receiver: TObject; NewText: string);
var
OldOnChange: TNotifyEnent;
begin
OldOnChange := Receiver.OnChange;
Receiver.OnChange:= NIL;
Receiver.Text := NewText;
Receiver.OnChange:= OldOnChange;
end;

умнею однако :) test

> chir (14.01.05 00:47) [13]
> а еще лучше вот так:

А еще лучше вот так:

OldOnChange := Receiver.OnChange;
try
Receiver.OnChange:= NIL;
Receiver.Text := NewText;
finally
Receiver.OnChange:= OldOnChange;
end;

> [13] chir (14.01.05 00:47)

Класс TObject не содержит свойства Text и метода OnChange.

OnChange - игнор Найти похожие ветки