I have the following code, which I came across on here and can't find it now!!, in a project that expands a named node in a TShellTreeView, but it only seems to work on the first level nodes...
procedure TForm1.NodeByText(ToDo:String; aNodeText:String);
var
vNode : TTreeNode;
vLastNode : TTreeNode;
begin
for vNode in TreeView.Items do begin
if vNode.Text = aNodeText then begin
vLastNode := vNode;
vNode.Selected := True;
end;
end;
vLastNode.Expanded:=True;
end;
...I've tried modifying it to include all node levels but I keep on getting errors. I would be grateful for any help before I loose more of what little hair I have.