Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Главная » Статьи » Не стандартные примеры на Delphi » Pascal

Подключение процедур к созданным компонентам

...я могу порекомендовать перекрыть события по-умолчанию KeyPress, Click, DblClick и прочие. Вот пример того, как можно перекрыть процедуру Click:

(Объявление в секции класса protected)


   
procedure Click ; override ;

(Следующий код должен располагаться в секции implementation)


    procedure GOKButton.Click ;
begin
inherited Click ;
(Owner as TForm).Close ;
end
Категория: Pascal | Добавил: DelphiAiX (09.05.2012)
Просмотров: 476 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]