Delphi TreeView 设置树全部展开

以前总是循环展开，现在有这个属性，就简单多了

RzTreeView_DWDept.FullExpand;  这样就可以全部 展开了。

还有一个问题，设置节点选中

RzTreeView_DWDept.SetFocus;

if RzTreeView_DWDept.Selected = nil then
      RzTreeView_DWDept.Selected := RzTreeView_DWDept.Items.Item[0];

这个的重点是  RzTreeView_DWDept.SetFocus; 如果当前焦点没有在树上，你怎么设置都不起作用。