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