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