高手！！！treeview中如何使根结点默认打开（用代码），子结构收缩，当点击子结点前的+号时再显示子结点的子结点

Question

高手！！！treeview中如何使根结点默认打开（用代码），子结构收缩，当点击子结点前的+号时再显示子结点的子结点

Answer 1

For I:=0 To TreeView.Items.Count-1 Do
  TreeView.Items[I].Expanded:= False;
TreeView.Items[0].Expanded:= True;

Answer 2

//CurNode要展开的结点的第二级结点.
procedure ExpandSecondNode(CurNode: TTreeNode);
var Node: TTreeNode;
begin
  Node := curNode;
  while CurNode <> nil do
  begin
    CurNode.Expand(False); //True展开所有的结点,False只展开当前的结点
    CurNode := Node.getNextSibling;
    Node := CurNode;
  end;
end;经过测试的,保证好用.

Answer 3

只需要 TreeView.AutoExpand := False;