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 ; |
请发表评论