Come rimuovere il rettangolo di messa a fuoco da un controllo a pulsante?

Question

Ho bisogno di rimuovere un rettangolo di attivazione dei pulsanti, perché sembra scadente sul glifo TBitBtn dopo aver fatto clic sui pulsanti.

Answer 1

Per ovviare al problema, è possibile utilizzare uno TSpeedButton, che non prende la messa a fuoco e, di conseguenza, non riceve mai un rettangolo di attivazione.

Answer 2

È possibile creare una classe Interposer per TBitBtn e sovrascrivere SetButtonStyle prevenire è interna IsFocused variabile da impostare:

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

... 
implementation 

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

Questo sarà il risultato di un TBitBtn senza rettangolo di attivazione. (Testato con D7 - con/senza supporto per i temi).