Hallo,
habe die Lösung gefunden.
Delphi-Quellcode:
procedure TSTF.VST2IncrementalSearch(Sender: TBaseVirtualTree;
Node: PVirtualNode; const SearchText: WideString; var Result: Integer);
var
s1,
s2: string;
Data: PTreeData;
begin
Data:= VST2.GetNodeData(Node);
s1 := SearchText;
s2:= TTreeDataClass(Data.FObject).FName;
Result := StrLIComp(PChar(s1), PChar(s2), Min(Length(s1), Length(s2)));
end;
Gruß U.