这是与Delphi XE7一起使用的。我有一个将节点添加到TtreeView的过程。 TreeView在运行时创建并添加到面板中。然后运行此代码以构建树。

var
  node0,node1,node2,node3,node4,node5: TtreeNode;
begin
  Tree.Items.Clear;
  node0 := Tree.Items.Add(nil,'Client Folders');
  node1 := Tree.Items.AddChild(node0,'C:\files');
  node3 := Tree.Items.AddChild(node1,'Folder 1');
  node2 := Tree.Items.AddChild(node0,'\\Westdc2\dev');
  node4 := Tree.Items.AddChild(node2,'Folder 2');
  node5 := Tree.Items.AddChildFirst(node4,'Folder 3');

这正常工作；我在其下面有两个文件夹的客户端文件夹：C：\ files和\ westdc2 \ dev以及它们下面的1-3文件夹。

但是，如果我将Tree的定义更改为TShellTreeView（以及.Create中），它将无法正常工作。我只是添加了“客户端文件夹”而已。

无论是否使用Tree.Items.Clear，这都是相同的，使用TShellTreeview时会删除系统文件夹。