automatische Suche in ListBox abschalten

[delphin]

Hallo Freunde,

ich bin am Verzweifeln, weil ich in einer Listbox die Standardsuchfunktion einfach nicht deaktivert bekomme.

Wenn ich eine ListBox z.B. mit folgenden Daten im Create-Ereignis füttere:

Delphi-Quellcode:

with ListBox1 do
begin Items.Add('07159');
      Items.Add('f8130');
      Items.Add('10300');
      Items.Add('ab255');
      Items.Add('11150');
      Items.Add('17636');
end;

und nixweiter tue als das - kann ich mit den "Hoch" und "Runter"-Tasten wunderbar in der Liste navigieren.

Drücke ich die Taste "x" passiert auch nichts, d.h. der Kursor steht, wo er zuletzt eben stand und bewegt sich nicht, weil kein Eintrag mit "x" losgeht.

Drücke ich aber nunmehr eine "1", dann springt der Balken auf die erste vorhandene "1" sprich auf die 3. Stelle - in meinem Fall zur '10300'. Drücke ich erneut auf die Taste "1" springt er dann auf die 5 Position, usw.

Meine Frage: Welche Eigenschaft schaltet dieses ungewollte Sucheverhalten ab?

Für Eure Hinweise bin ich sehr dankbar.
Gruß Gerd

[IceBube]

Hallo!

Diese...

Delphi-Quellcode:

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

lg

[rapante]

...und damit das navigieren mit den PfeilTasten weiterhin funktioniert...

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;

[BUG]

Zitat von rapante:

...und damit das navigieren mit den PfeilTasten weiterhin funktioniert...

Code:

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not Key in [VK_UP, VK_DOWN] then
    Key := 0;
end;

Hast du es ausprobiert? Es funktioniert auch so mit den Pfeiltasten.

Zudem haust du virtuelle Tastencodes und Buchstaben durcheinander.

EDIT:

Entschuldigung, war auf KeyPress festgefahren

[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

[BUG]

Zitat von delphin:

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

Im KeyDown-Code war die Klammerung falsch, so geht es:

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;

[m.wollert]

Hi,

ehrlich gesagt würde ich aber noch PageUp, PageDown, Home und End in die Ausnahme einfügen.

Grüße
Michael

[delphin]

Vielen Dank für Eure Mithilfe,

da es ja offensichtlich keinen Schalter gibt, der den Suchsprung verhindert, werde ich Eure Lösungen mit dem Key:=0 als Lösung nehmen.

Viele Grüße
Gerd

[SirThornberry]

Ich meine mich Erinnern zu können das es eine Eigenschaft(Property) bei der Listbox gab um dies zu deaktivieren. Sollte sogar im Objektinspektor zu sehen sein.

[Sir Rufo]

TListBox.AutoComplete
Geht auf jeden Fall in D2010