automatische Suche in ListBox abschalten

[SirThornberry]

Genau dieses Property meinte ich :-D Und wenn ich mich richtig erinnere gab es das auch schon bei Delphi7. Bei BDS2006 gab es dies auf jeden Fall.

[jaenicke]

Das gab es auch schon ab Delphi 6, vorher nicht.

Bei den älteren Delphiversionen (getestet 6, 7, 2006) bewirkt es aber nichts. Zumindest nicht unter Windows XP (virtueller PC :mrgreen:), dabei sieht man im Quelltext, dass ohne AutoComplete der Quelltext für die Selektion per Filter nicht ausgeführt wird. Ich vermute, dass Windows das dennoch automatisch macht, hatte jetzt aber gerade auch keine Lust das genauer anzuschauen.

[rapante]

@BUG ...kein Problem, hab' ja auch ein bisschen was durcheinander gebracht. :oops:

Mir war nicht bewusst, dass im OnkeyPress-Ereignis nur Tastatureingaben ankommen
die Zeichen erzeugen. naja wieder was gelernt.

Hast du das Beispiel eigentlich mal getestet?

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;

Es kann eigentlich gar nicht funktionieren, da zwar der Key auf 0 gesetzt und die Weiterverarbeitung der WM_KEYDOWN-Botschaft verhindert wird,
aber nicht die der WM_Char-Botschaft. Dass heißt es gibt trotzdem ein OnkeyPress-Ereignis und die Eingabe
einer Zeichenerzeugenden Taste wird nicht abgefangen.

Wie auch immer - die AutoComplete-Variante ist hier wohl der bessere Weg...

[delphin]

Also nun doch noch ein Abschlussbericht zu Eurern Lösungen.

ListBox1.AutoComplete:=false und Delphi 7:

1. Der Schalter ist nicht im Objektinspektor zugänglich, aber es gibt ihn
2. Die Wirkung auf das von mir beschrieben Verhalten = 0

Somit kommt zu mindest im Delphi 7 nur die Variante von IceBube:

Delphi-Quellcode:

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

zum sinnvollen Einsatz.
Das Ausklammern der Kursorsteuertasten VK_Down, VK_UP, VK_Left etc. kann man sich übrigens schenken, da sie kein KeyPress-Ereignis auslösen, zumindest nicht unter Win2000.

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;

Der Rollbalken springt beim Drücken einer Taste, dessen Char einem Anfangsbuchstaben des Strings in der Liste entspricht sofort an die entsprechende Stelle und erst danach geht die Messagebox auf.

[jaenicke]

Zitat:

Zitat von delphin

ListBox1.AutoComplete:=false und Delphi 7:

1. Der Schalter ist nicht im Objektinspektor zugänglich, aber es gibt ihn

Bei mir gibt es den (Delphi 7 PE im virtuellen PC getestet). :gruebel:

Zitat:

Zitat von delphin

2. Die Wirkung auf das von mir beschrieben Verhalten = 0

Richtig, habe ich ja schon geschrieben, ich vermute mal das liegt an einer Automatik von Windows, denn der Quelltext zum Filtern wird korrekt übersprungen (hab ich im Debugger kurz getestet).

[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