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