6

TBitBtnボタンがクリックされた後、グリフ上で見栄えが悪いため、ボタンフォーカスの長方形を削除する必要があります。

4

2 に答える 2

6

Interposer クラスを作成し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 でテスト済み - テーマのサポートあり/なし)。

于 2013-03-10T20:09:49.377 に答える
3

回避策として、 を使用できますTSpeedButton。これはフォーカスを取得しないため、フォーカス四角形を受け取ることはありません。

于 2013-03-10T01:30:46.580 に答える