当处理完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 ;
|
来源: http://www.bubuko.com/infodetail-1994158.html