Hallo HappyJoe,
du hast dein Problem wahrscheinlich schon lägst gelöst, aber da ich eben auf diesen Beitrag gestoßen bin, weil ich das gleiche Problem hatte, hier einmal ein Tipp.
Du musst Windows mitteilen, dass dein TButton-Nachbau den aktiven Fokus haben soll. Wenn du das mitgeteilt hast, dann treffen auch über die CMFocusChanged-Botschaften ein, wenn dein TButton-Nachbau den Fokus bekommt. Von da an trudeln
deine Key-Botschaften und diverse weitere fleißig ein.
im Interface-Teil:
Delphi-Quellcode:
protected
procedure WndProc(var Message: TMessage); override;
Im Implementations-Teil:
Delphi-Quellcode:
procedure TButtonNachbau.WndProc(
var Message: TMessage);
begin
case Message.Msg
of
WM_LBUTTONDOWN, WM_LBUTTONDBLCLK:
if not (csDesigning
in ComponentState)
and not Focused
then
begin
Windows.SetFocus(
Handle);
if not Focused
then Exit;
end;
end;
inherited WndProc(
Message);
end;
Gruß Stephan