focus ohne OnClick Ereignis auf ein Button

[Sharky]

Hai bergamo34,

durch setzten von ActiveControl sollte es gehen.

Code:

procedure Tfrm_briefbearbeiten.cobxKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    Key := 0;
    ActiveControl := Button1;
  end;
end;