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
;
|
