如何从按钮控件中删除焦点矩形？

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进行测试 - 带/不带主题支持）。