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 :=  to RzTreeView1 . Items . Count- 1 do RzTreeView1 . Items[icount].Expanded:= True ; RzTreeView1 . Items . EndUpdate; end ;