ListBox Tastatur- bzw. Worteingabe

[Christoph]

Hallo!

Ich habe eine sortierte ListBox mit einer großen Anzahl von Einträgen.
Mit AutoComplete springt der ItemIndex an den ersten Buchstaben eines Eintrages.

Da ich eine Menge Einträge unter jedem Buchstaben habe möchte ich gerne mehrere Zeichen hintereinander tippen und somit schneller zu dem gewünschten Listboxeintrag kommen.

Bsp.:
Ich suche den Eintrag 'gruendung' in der folgenden Liste:

gruen
gruendbar
gruendorf
gruendung
gruenlich
gruenstadt

Gebe ich ein 'g' ein, springt der ItemIndex auf den ersten Eintrag mit einem 'g', hier also auf 'gruen'.
Ich würde gerne 'gruendo' eingeben können mit dem Ergebnis, dass der ListboxItemIndex auf 'gruendorf' steht.

Wer kann helfen?

Danke und Gruß,
Christoph

[Legolas]

Hi Christoph,

also auf Anhieb habe ich kein Patentrezept aber es sollte doch möglich sein z.b. im KeyPress Ereignis der Listbox die Tastaturanschläge auszuwerten und dann mit den Einträgen zu vergleichen.

[Christoph]

Hallo,

leider bin ich bei diesem Problem noch nicht wirklich weiter gekommen.
Bislang kann ich immer nur ein einziges Zeichen 'abfangen'.
Hier ein Auszug aus dem Code (Codeschnipsel aus diesem Forum, gekürzt):

Delphi-Quellcode:

function TForm1.GetKey(Key: Word): String;
begin
  case Key of
    VK_NUMPAD6   : Result := 'VK_NUMPAD6';
    VK_NUMPAD7   : Result := 'VK_NUMPAD7';
    VK_NUMPAD8   : Result := 'VK_NUMPAD8';
    VK_NUMPAD9   : Result := 'VK_NUMPAD9';
    VK_MULTIPLY  : Result := 'VK_MULTIPLY';
    VK_ADD       : Result := 'VK_VKADD';
    VK_SEPARATOR : Result := 'VK_SEPARATOR';
    VK_SUBTRACT  : Result := 'VK_SUBTRACT';
    VK_DECIMAL   : Result := 'VK_DECIMAL';
    VK_divIDE    : Result := 'VK_divIDE';
  else
    Result := 'Zeichentaste: '+ Chr(Key);
  end;
end;

Delphi-Quellcode:

procedure TForm1.ListBoxKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Zeichen: string;
begin
  Zeichen:=GetKey(Key);
  Form1.Memo.Text:=Zeichen;
end;

Damit bekomme ich aber immer nur ein einzelnes Zeichen. Ich möchte die ersten vier bis fünf Zeichen abfangen, nacheinander in einen String schreiben und dann den so erzeugten String mit dem Eintrag in der Listbox abgleichen.

Kann jemand helfen?

Danke und Gruß,
Christoph

[Legolas]

Hi Christoph,

ich habe da mal ein bisserl rumgespielt und habe folgenden Lösungsansatz für dich und habe deinen Code entsprechend erweitert:

Code:

...
implementation

{$R *.dfm}

var Zeichen  : string;

function TForm1.GetKey(Key: Word): String;
begin
  case Key of
    VK_NUMPAD6   : Result := 'VK_NUMPAD6';
    VK_NUMPAD7   : Result := 'VK_NUMPAD7';
    VK_NUMPAD8   : Result := 'VK_NUMPAD8';
    VK_NUMPAD9   : Result := 'VK_NUMPAD9';
    VK_MULTIPLY  : Result := 'VK_MULTIPLY';
    VK_ADD       : Result := 'VK_VKADD';
    VK_SEPARATOR : Result := 'VK_SEPARATOR';
    VK_SUBTRACT  : Result := 'VK_SUBTRACT';
    VK_DECIMAL   : Result := 'VK_DECIMAL';
    VK_divIDE    : Result := 'VK_divIDE';
  else
    Result := Chr(Key);
  end;
end;

procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
var I: Integer;
begin
  Zeichen:=Zeichen+Key;
  for i:=0 to Listbox1.Items.Count do
  begin
    Memo1.Text:=Zeichen;
    if (Length(ListBox1.Items[i])=Length(Zeichen)) or (Length(ListBox1.Items[i])>Length(Zeichen)) then
    begin
      Label1.Caption:=Copy(ListBox1.Items[i],0,Length(Zeichen));
      if Copy(ListBox1.Items[i],0,Length(Zeichen))=Zeichen then
      begin
        ListBox1.ItemIndex:=i;
        exit;
      end;
    end;
  end;
end;
...

Ich hoffe da hilft dir bei deinem Problem weiter.

Bei mir tut es das was du dir vorgestellt hast, könnte aber sein das man es noch etwas eleganter progen kann.

[SirThornberry]

bei der Comobox isses so das auch immer zum anfangsbuchstaben gesprungen wird. wenn ich zum beispiel ein "g" drücke wird zum item gespruchen das mit "g" anfängt. Wenn man schnell genug tippt kann man auch mehr als nur den ersten buchstaben eingeben, ist vielleicht bei der Listbox auch so

[Edit]Ich habs grad probiert und wie vermuted musst du einfach nur bissl schneller tippen. Eventuell einfach mal danach suchen wie du die tippgeschwindigkeit abändern kannst, dann erstparst du dir das ganze noch mal zu proggen[/Edit]

[Legolas]

Hallo SirThornberry,

laut OH sollte das auch funktionieren, aber bei mir funktioniert es nicht. Die Listbox markiert nur das erste Zeichen oder sollte ich nicht in der Lage sein so schnell zu tippen?

aber mal im Ernst, da mit dem abändern der Tipgeschwindigkeit ist ein interessanter Vorschlag.

schaun wir mal wo man da den Hebel ansetzten muß, oder weißt du's vieleicht???

Ansonsten ist die Lösung ja nun nicht so riesig ausgefallen, so das man es kurz eintippen kann.

[SirThornberry]

derzeit muss du innerhalb von 500 ms den nächsten buchstaben tippen. Den wert kannst du in
procedure TCustomListBox.KeyPress(var Key: Char); //unter delphi7 in der unit "stdctrls.pas" ändern. (TListbox ist von TCustomListBox abgeleitet)
Oder du leitest eine neue Klasse von TListbox ab und überscheibst die methode...

[Legolas]

urspünglich hatte ja Christoph Probleme damit, aber das interessiert mich jetzt doch.

Ih werde es mal ausprobieren. Man lernt ja nie aus, oder?

[SirThornberry]

habs grad probiert und es funktioniert supi. Hab anstelle der 500ms mal 5000 eingegeben, und siehe da, man kann halb einschlafen beim tippen. Türlich musste vorher die unit neu compiliert werden bzw hab ich die "stdctrls.pas" dem testprojekt hinzugefügt

[Legolas]

@SirThornberry:

Hast recht habs auch gerade probiert, funktioniert. Sehr gute Idee, Respekt.

Aber Christoph wird mit der Lösung nicht glücklich werden, denn ich meine das der Lösungsweg nicht mit Delphi 6 Personal funktionieren wird.

Wenn ich mich richtig erinnere fehlen dort die Quellen, oder?