如何自动展开所有TTreeView节点？

Question

我想在应用程序启动时展开主窗体上的树。 我怎样才能做到呢？我找不到相应的属性。 C++ 生成器 2009。

Answer 1

您只需调用 FullExpand()在树视图上。

Answer 2

添加树节点时，将其扩展属性设置为 true，

您将找到树节点对象的一个​​属性，在添加到节点列表之前将其设置为 true。

的 TreeView 方法，

您还可以找到一个名为 ExpandAll My Regards

---

尝试此代码

//this will expand all nodes of Level and their parents
procedure ExpandTree(Tree: TTreeView; Level: integer);

  procedure ExpandParents(Node: TTreeNode);
  var
    aNode : TTreeNode;
  begin
    aNode := Node.Parent;
    while aNode <> nil do begin
      if not aNode.Expanded then
        aNode.Expand(false);
      aNode := aNode.Parent;
    end;
  end;

var
  aNode : TTreeNode;
begin
  if Tree.Items.Count > 0 then begin
    aNode := Tree.Items[0];

    while aNode <> nil do begin
      if aNode.Level = Level then begin
        aNode.Expand(false);
        ExpandParents(aNode);
      end;
      aNode := aNode.GetNext;
    end;
  end;
end;

//this will expand the Node and it's parents
procedure ExpandNode(Node: TTreeNode);
var
  aNode : TTreeNode;
begin
  Node.Expand(false);

  aNode := Node.Parent;
  while aNode <> nil do begin
    if not aNode.Expanded then
      aNode.Expand(false);
    aNode := aNode.Parent;
  end;
end;

并查看参考
http://www.delphipages.com/forum/showthread.php?t=159148 问候

我的

Answer 3

有多种方法可以做到这一点。最简单的方法是

TreeView1.FullExpand;

在接受的答案中 -

if TreeView1.items.GetFirstNode <> nil then
  TreeView1.items.GetFirstNode.Expand(True);

或者或者

if TreeView1.items[0] <> nil then
  TreeView1.items[0].Expand(True);

如果您想从不是根节点的特定节点完全扩展，TTreeNode 上的 Expand 方法非常有用。