automatische Suche in ListBox abschalten

[rapante]

Zitat:

Das Abfangen des Ereignisses ListBox1KeyPress gemäss Lösungsvorschlag von BUG greift viel zuspät ins Geschehen ein. Das könnt Ihr ja einfach mal hiermit testen:

Delphi-Quellcode:

procedure TForm1.ListBox1KeyDown(Sender: TObject; var  Key: Word; Shift: TShiftState);
begin ShowMessage('leider schon zu spät');
      if not (Key in [VK_UP, VK_DOWN]) then Key:=0;
end;

Das ist so nicht richtig! Setz doch mal in beiden Prozeduren bei showmessage einen Breakpoint und schau was passiert!

Delphi-Quellcode:

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  showmessage('down');
end;

procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
  showmessage('press')
end;

Erklärung zu Keyboard-Events und Verarbeitung