Hi Jens,
vielen Dank! Das funktioniet wunderbar! Und das umschreiben auf VirtualStringTree hat auch wunderbar funktioniert.
Für alle interessierten: hier meine Funktion:
Delphi-Quellcode:
function TfrmMain.GetListNode(Node : PVirtualNode; const NodeText : String) : PVirtualNode;
var
TmpNode : PVirtualNode;
pData: PTVData;
begin
Result:=Nil;
If Node<>Nil then begin
pData := vstData.GetNodeData(Node);
If AnsiLowerCase(pData.szCaption)=AnsiLowerCase(NodeText) then
Result:=Node;
end;
TmpNode:=Node.FirstChild;
While (TmpNode<>Nil) and (Result=Nil) do
begin
Result:=GetListNode(TmpNode,NodeText);
TmpNode:=Node.NextSibling;
end;
end;
Das ist Jens' Code einfach nur auf VirtualStringTree übertragen.
Danke,
Chris