Подключение процедур к созданным компонентам
...я могу порекомендовать перекрыть события по-умолчанию KeyPress, Click, DblClick и прочие. Вот пример того, как можно перекрыть процедуру Click:
(Объявление в секции класса protected)
| procedure Click ; override ; |
(Следующий код должен располагаться в секции implementation)
|
procedure GOKButton.Click ; begin inherited Click ; (Owner as TForm).Close ; end ; |
[001991]
