automatische Suche in ListBox abschalten

[delphin]

Hallo,

also ich dachte ja, da gibts irgend so einen verborgenen Schalter der Art

ListBox1.wasweißichnicht:=disable

aber wie es scheint, kann man es tatsächlich beim KeyPressed-Event verbiegen.

Delphi-Quellcode:

procedure TForm1.ListBox1KeyPress(Sender: TObject; var  Key: Char);
begin
  Key := #0;
end;

Funktioniert bei mir und das navigieren mit den Pfeiltasten geht auch noch!!!

Das verändern des Wertes im KeyDown-Event bringt dagegen garnichts, will sagen:

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;

der Rollbalken springt bei mir immer noch auf den entsprechenden Eintrag in der Listbox ???

und über einen Schalter gehts wirklich nicht ?

Viele Grüße
Gerd