automatische Suche in ListBox abschalten

[BUG]

Zitat von rapante:

...und damit das navigieren mit den PfeilTasten weiterhin funktioniert...

Code:

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not Key in [VK_UP, VK_DOWN] then
    Key := 0;
end;

Hast du es ausprobiert? Es funktioniert auch so mit den Pfeiltasten.

Zudem haust du virtuelle Tastencodes und Buchstaben durcheinander.

EDIT:

Entschuldigung, war auf KeyPress festgefahren