Zitat von
delphin:
Das verändern des Wertes im KeyDown-Event bringt dagegen garnichts, will sagen:
Im KeyDown-Code war die Klammerung falsch, so geht es:
Delphi-Quellcode:
procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if not (Key in [VK_UP, VK_DOWN]) then
Key := 0;
end;