如何從按鈕控件中刪除焦點矩形？

Question

我需要刪除一個按鈕焦點矩形，因爲在點擊按鈕後，它看起來不太符合TBitBtn字形。

Answer 1

作爲解決方法，您可以使用TSpeedButton，它不佔用焦點，因此永遠不會收到焦點矩形。

Answer 2

可以爲TBitBtn創建一個內插器類並覆蓋SetButtonStyle防止它的內部IsFocused變量設置：

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

... 
implementation 

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

這將導致沒有焦點矩形一個TBitBtn。 （使用D7進行測試 - 帶/不帶主題支持）。