Wie Entferne Fokusrechteck von einem Button-Steuerelement?

Question

Ich muss ein Button Fokusrechteck entfernen, weil es nach dem Klicken auf die Schaltfläche TBitBtn glyph schlecht aussieht.

Answer 1

Als Workaround können Sie eine TSpeedButton verwenden, die nicht den Fokus und folglich nie ein Fokusrechteck erhält.

Answer 2

Sie können eine Einschießeinheit Klasse für TBitBtn erstellen und außer Kraft setzen SetButtonStyle es interne IsFocused Variable verhindert gesetzt werden:

Diese

type 
    TBitBtn = class(Buttons.TBitBtn) 
    protected 
    procedure SetButtonStyle(ADefault: Boolean); override; 
    end; 

... 
implementation 

procedure TBitBtn.SetButtonStyle(ADefault: Boolean); 
begin 
    inherited SetButtonStyle(False); 
end; 

eine TBitBtn ohne Fokusrechteck führen. (Getestet mit D7 - mit/ohne Theme-Unterstützung).