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

Перехват OnEnter в моем компоненте

Компоненты, имеющие возможность принимать фокус, уже имеют унаследованные методы с именами DoEnter и DoExit.


   
Procedure DoExit; override;
Procedure DOEnter; override;

procedure MyClassName.DoExit;
begin
fIsFocused := FALSE;
inherited DoExit;
end;

procedure MyClassName.DoEnter;
begin
inherited DoEnter;
fIsFocused := TRUE;
end
Категория: Pascal | Добавил: DelphiAiX (09.05.2012)
Просмотров: 567 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]