focus ohne OnClick Ereignis auf ein Button

[bergamo34]

Hallo,


habe folgendes Problem, verstehe aber nicht warum?
Nach einem Return auf ein ComboBox (genauer TJvDBLookupComboEdit (Jedi3.0))
soll der Focus auf ein Button gesetzt werden, ohne das OnClick-Ereignis des
Buttons aufgelöst wird.

Folgender Code-Segement ist das KeyDown-Ereignis des Combos, aber das funktioniert
so nicht. Nach dem RETURN auf das combo, wird der Focus gesetzt auf das Button gesetzt
aber das OnClick-Ereignis auch ausgelöst.

Das komische ist, dass es mit einem TDBEdit funktioniert!

Code:

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

Nun, kann mir jemand da weiterhelfen?

[alcaeus]

Soviel ich weiß ist ein SetFocus bei einem Button gleich dem Mausklick. Evtl. musst du das Problem mit der Default-Eigenschaft umgehen. Vielleicht kannst du mal erklären, was genau das Problem ist.

Greetz
alcaeus

[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;

[bergamo34]

danke für die Antworten, super jetzt funkts..