Rand um gedrückten Button entfernen

[Hawkeye219]

Hallo Nagetier,

wenn du wirklich auf das FocusRect verzichten möchtest, kannst du die folgende Unit hinter Buttons in die USES-Anweisung aufnehmen.

Delphi-Quellcode:

unit unit_BitBtnNoFocus;

interface

uses
  Messages, Controls, Buttons;

type
  TBitBtn = class (Buttons.TBitBtn)
  private
    procedure CNDrawItem(var Message: TWMDrawItem); message CN_DRAWITEM;
  end;

implementation

uses
  Windows;

procedure TBitBtn.CNDrawItem(var Message: TWMDrawItem);
begin
  with Message.DrawItemStruct^ do
    itemState := itemState and (not ODS_FOCUS);
  inherited;
end;

end.

Gruß Hawkeye