Текущий архив: 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.01 c
