Fange TListBox\'s keypress events

Et hurtigt svar uden at have prøvet det:

procedure TForm1.ListboxKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key=VK_LEFT) or (Key=VK_RIGHT) then
  begin
    Key := 0;
    abort;
  end;
end;

Jeg er ikke sikker at den der abort behøves men jeg har den blot med for en sikkerhedsskyld!!

Altså i Keydown istedet for Keypress

Det virkede JUHUU!!!