Компоненты, имеющие возможность принимать фокус, уже имеют унаследованные
методы с именами 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; | |