Combobox mit csDropDownList reagiert zu langsam bzw. falsch

[dataspider]

Hi,

ich glaube, das OnKeyDown eher geeignet ist. Bei KeyPress gab es Probleme, gerade bei Comboboxen.
Dort geht die Abfrage, ob die Box aufgeklappt ist, z.B. nicht.

Probier mal:

Delphi-Quellcode:

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word; Shift:
    TShiftState);
begin
  // ich kann ja immer noch mit Alt + Down die Liste aufklappen, dann soll Enter nur die Liste schließen...
  if not ComboBox1.DroppedDown then
  begin
    if (key = 13) then
      begin
        key := 0;
        Perform(WM_NEXTDLGCTL, 0, 0);
      end;
  end;
end;

Frank