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 