Eigene Komponente TCustomControl den Focus erhalten

[Schokohase]

Man könnte ja nachschauen wie das bei anderen Controls funktioniert ... z.B. bei TButton

Delphi-Quellcode:

procedure TButtonControl.WndProc(var Message: TMessage);
begin
  case Message.Msg of
    WM_LBUTTONDOWN, WM_LBUTTONDBLCLK:
      if not (csDesigning in ComponentState) and not Focused then
      begin
        FClicksDisabled := True;
        Winapi.Windows.SetFocus(Handle); // das setzt den Focus
        FClicksDisabled := False;
        if not Focused then Exit;
      end;
    CN_COMMAND:
      if FClicksDisabled then Exit;
  end;
  inherited WndProc(Message);
end;