Delphi TreeView – 自动展开树形结构

当处理完TreeView控件树形结构的数据后，需要默认自动全部展开，可以用到TreeView的Expanded属性。

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;