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