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

Question

我需要删除按钮焦点矩形，因为单击按钮后它在 TBitBtn 字形上看起来很糟糕。

Answer 1

您可以为 TBitBtn 创建一个 Interposer 类并重写 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 进行测试 - 带/不带主题支持)。