Есть форма F1 на которой есть CheсkBox1и F2 на которой есть [D7, WinXP]
Garry_c © (2005-01-21 12:36:00)
CheсkBox2. Обработчики событий onclick у этих CheckBox-ов
одинаковые. Не хочется иметь два одинаковых участка кода.
Как вариант, можно, конечно, написать отдельно третью
процедуру и ее вызывать из обеих обработчиков. Но может быть есть
способ как из тела обработчика F1.CheсkBox1.OnClick вызвать
процедуру
F2.CheсkBox2.OnClick пробовал напрямую, но не пойму что
писать вместо TObject в параметрах процедуры.
GuAV (2005-01-21 13:18:00) [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.
Вообще такую задачу я бы решил или дублированием кода, или
вынесением кода обоих обработчиков в отдельную процедуру или, если
формы во многом похожи, наследованием.
Наверх 
ЧАТ |
Орешник |
|
