Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: 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 вся ветка

Текущий архив: 2004.03.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
11-12301
Alexeyss
2003-06-22 04:57
2004.03.05
Проблемма совместимости с ХР


1-12415
BALU1111
2004-02-24 16:22
2004.03.05
Функция Random в DLL


1-12388
satron
2004-02-24 23:50
2004.03.05
Как развернуть окно во весь экран


1-12445
softmasters
2004-02-22 19:44
2004.03.05
Вопрос по построению отчета в FastReport


1-12319
111
2004-02-21 19:02
2004.03.05
*.txt ; *.rtf