Einzelnen Beitrag anzeigen

Benutzerbild von rapante
rapante

Registriert seit: 3. Jun 2009
Ort: OPR
171 Beiträge
 
Delphi XE2 Professional
 
#13

Re: automatische Suche in ListBox abschalten

  Alt 31. Mär 2010, 08:21
@BUG ...kein Problem, hab' ja auch ein bisschen was durcheinander gebracht.

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...
  Mit Zitat antworten Zitat