editXXXXonChange... TNotifyEvent.. голова кругом идёт

← →
Алексей (2004-02-25 15:34) [0]

В соседней ветке присоветовали вот что:
"Edit1.OnChange := nil;
try
Edit1.Text := ...
finally
Edit1.OnChange := Edit1OnChange;
end;"

В случае с Edit1 - всё понятно. А если я использую конструкцию:
with TEdit(Sender) do
begin
OnChange := nil;
try
.....
.....
finally
OnChange := XXXX;
end;
end;
Что вместо ХХХХ? Извиняюсь - просто сейчас нет времени лезть в хелпы/книги.

Насколько я понимаю, ХХХХ должен быть типа TNotifyEvent? Как мне из моего TEdit(Sender) составить что-то типа editXXXXonChange (в случае если Sender - editXXXX)?

← →
Skyle (2004-02-25 15:36) [1]

А ты сначала сохрани его, а потом восстанови.
например

var TmpOnChange : TNotifyEvent; ...... with TEdit(Sender) do begin TmpOnChange := OnChange; OnChange := nil; try ..... ..... finally OnChange := TmpOnChange; end; end;

← →
Алексей (2004-02-25 15:38) [2]

спасибо

editXXXXonChange... TNotifyEvent.. голова кругом идёт Найти похожие ветки