Combobox mit csDropDownList reagiert zu langsam bzw. falsch

[troelm]

Hallo zusammen,

ich bin gerade auf ein erstaunliches Problem mit der Combobox (bzw. DBCombobox) gestossen.
Ich benutzte csDropDownList mit fest definierten Items:
0
1
2
3
11
99

Dazu folgende "OnKeyPress"-Routine:

Delphi-Quellcode:

procedure KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    begin
      key:=#0;
      Perform(WM_NEXTDLGCTL,0,0);
    end;
end;

Wenn jetzt der Anwender sehr schnell die Tasten "0" + "2" + Return drückt, dann sollte ja aus der Liste die "2" ausgewählt werden.
Es wird auch in der nächsten Routine mit der "2" gerechnet, aber in der Combobox steht die "0".
Wenn ich irgendwann später die Combobox auslese bekomme ich die "0" und das ist falsch.

Falls die Eingabe langsam erfolgt, dann funktioniert alles normal.

Liegt es an meiner "OnKeyPress"-Routine oder ist die Combobox einfach zu langsam?

Danke

[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

[troelm]

Danke Frank!!!

Es klappt. Ich werde alle Comboboxen jetzt mit OnKeyDown anstatt mit OnKeyPress weiterverarbeiten.