Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

Есть форма F1 на которой есть CheсkBox1и F2 на которой есть   Найти похожие ветки 

 
Garry_c   (2005-01-21 12:36) [0]

CheсkBox2. Обработчики событий onclick у этих CheckBox-ов одинаковые. Не хочется иметь два одинаковых участка кода.
Как вариант, можно, конечно, написать отдельно третью процедуру и ее вызывать из обеих обработчиков. Но может быть есть способ как из тела обработчика F1.CheсkBox1.OnClick вызвать процедуру
F2.CheсkBox2.OnClick пробовал напрямую, но не пойму что писать вместо TObject в параметрах процедуры.


 
GuAV ©   (2005-01-21 13:18) [1]

Можно назначить обработчик другой формы во время выполнения F1.CheсkBox1.OnClick := F2.CheсkBox2.OnClick;


> Но может быть есть способ как из тела обработчика
>F1.CheсkBox1.OnClick вызвать процедуру
> F2.CheсkBox2.OnClick пробовал напрямую, но не пойму
> что писать вместо TObject в параметрах процедуры.


Можно и напрямую вызвать. Sender - это объект, вызвавший обработчик события, т.е. CheсkBox2, он же Sender в вызывающем обработчики. Если sender не используется можно передать что угодно, хоть nil.

Перед вызовом обработчика следует поверять назначен ли он if Assigned(F2.CheсkBox2.OnClick).

И ещё - не используется ли Self (явно или неявно) ? Дело в том что в обработчике F1.CheсkBox1.OnClick Self будет равен F1, даже если он вызван из F2.

Вообще такую задачу я бы решил или дублированием кода, или вынесением кода обоих обработчиков в отдельную процедуру или, если формы во многом похожи, наследованием.



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

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

Наверх




Память: 0.47 MB
Время: 0.041 c
1-1106481392
SeregaMan
2005-01-23 14:56
2005.02.06
Видимость определенной колонки StringGrid-a


1-1106242623
Mr_Jack
2005-01-20 20:37
2005.02.06
объект Tmemo


6-1100879482
Chery
2004-11-19 18:51
2005.02.06
Как скопировать файл с клиента на сервер?


4-1103099704
Max Ivanych
2004-12-15 11:35
2005.02.06
Как организовать вывод кириллицы в англоязычных Windows?


1-1106434307
Pine
2005-01-23 01:51
2005.02.06
Создание файла эксель и запись в него при помощи OLE