Delphi TreeView – 自动展开树形结构
当处理完TreeView控件树形结构的数据后，需要默认自动全部展开，可以用到TreeView的Expanded属性。
|
1
2
3
4
5
6
7
8
9
10
|
var icount : integer;
beginRzTreeView1.Items.EndUpdate;
//示例中用的是Raize中的RzTreeView组件for icount := 0 to RzTreeView1.Items.Count-1 do
RzTreeView1.Items[icount].Expanded:=True;
RzTreeView1.Items.EndUpdate;
end;
|