VirtualStringTree Eintrag suchen.

[Zodi]

Hi Delphianer

Ich habe ne VST und verwende ne Inputbox um Einträge in der VST zusuchen.
gelöst habe isch das so...

Delphi-Quellcode:

procedure TWindowManager.VSTKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  XNode: PVirtualNode;
  Data: PTreeData;
  SearchKey : String;
begin
  if (ssCtrl in Shift) and ((Key = Ord('F')) or (Key = Ord('f'))) then begin
     SearchKey := inputbox('Windowmanager Search','Search Caption','');
     XNode := VST.GetFirst;
     while XNode <> nil do begin
       Data := VST.GetNodeData(XNode);
       if lowercase(Data^.Column1) = lowercase(SearchKey) then begin
          VST.ClearSelection;
          VST.Selected[XNode] := True;
          VST.SetFocus;
          break;
       end else
          XNode := VST.GetNextSibling(XNode);
     end;
  end;
end;

nur findet und fokusiert er den Eintrag nur wenn er im Inputbox genau so geschrieben wird wie er auch im VST drinn steht.
wie kann ikch das machen das er den Eintrag auch findet wenn man z.b nur die ersten 3-4 Buchstaben eingibt.


Grüsse Zodi