wie erhält TButton den Focus

[stahli]

Wodurch erhält ein TButton bei einem MouseClick den Focus?
In TWinControl funktioniert das ja noch nicht...

Ich finde aber auch keine MouseDown-Behandlung, die SetFocus o.ä. enthält.

TabStop für die FocusZuweisung per Tab-Taste habe ich für meinen TWinControl-Nachfolger schon erfolgreich eingestzt

stahli

[DeddyH]

Aus der StdCtrls.pas:

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;
        Windows.SetFocus(Handle); //hier
        FClicksDisabled := False;
        if not Focused then Exit;
      end;
    CN_COMMAND:
      if FClicksDisabled then Exit;
  end;
  inherited WndProc(Message);
end;

[stahli]

Macht Sinn.
Danke!