???简单问题，TreeView如何自动展开到第二级???

Question

如下：如何让Treeview只展开到第二级，第二级以下的收拢-全部
    -设备
       +组装设备
       +散装设备
       +其它设备
    -材料
       +组装材料
       +散装材料
       +其它材料
  

Answer 1

试试procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
  if Node.Level > 2 then
    AllowExpansion := False;
end;

Answer 2

楼主是不是要程序启动后，树形结构初始状态就是只打开二级？
给TreeView来个遍历就行了，打开Level是零的和一的就行了.

Answer 3

bdmh 的方法不好使啊，我用的是RzTreeView
 

Answer 4

Delphi论坛越来越没人了，是不是每前景了！