怎么自动展开这样的节点

Question

       item:=self.TreeView1.Items.AddChild(nil,scombobox1.Text);
       GetDirectories(TreeView1, scombobox1.Text, item, True);在这里怎么自动只展开item这个节点呢？不展开下面节点的子节点
我知道TreeView1.FullExpand; 是展开全部节点

Answer 1

TreeView1.Items[0].Expand(False);//只展开当前节点
TreeView1.Items[0].Expand(True);//展开节点下所有节点,包括子节点的子节点