Delphi TreeView – 自动展开树形结构

Delphi TreeView – 自动展开树形结构

---

当处理完TreeView控件树形结构的数据后，需要默认自动全部展开，可以用到TreeView的Expanded属性。

1 2 3 4 5 6 7 8 9 10

var       icount : integer; begin RzTreeView1.Items.EndUpdate; //示例中用的是Raize中的RzTreeView组件 for icount := 0 to RzTreeView1.Items.Count-1 do       RzTreeView1.Items[icount].Expanded:=True;   RzTreeView1.Items.EndUpdate; end;