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

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]

спасибо

---

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

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



Память: 0.45 MB
Время: 0.011 c