Eigene Buttons: TButton oder TWinControl

[MephistoMyRo]

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