Главная страница
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.013 c
3-12254
gsvserg
2004-02-09 13:20
2004.03.05
dbgrid


1-12411
Budy
2004-02-22 22:11
2004.03.05
TMemo


1-12387
Иванко
2004-02-23 13:52
2004.03.05
Проблема у RichEdit c Charset (Глюки WIN XP???)


3-12249
Andrey V.
2004-02-08 10:29
2004.03.05
Работа с большим числом


4-12582
Aleksandr
2003-12-26 18:46
2004.03.05
Как послать другому приложению строку?