当前位置：首页 → 问答吧 → ???简单问题，TreeView如何自动展开到第二级???

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

时间：2011-11-22

来源：互联网

如下：如何让Treeview只展开到第二级，第二级以下的收拢

-全部
-设备
+组装设备
+散装设备
+其它设备
-材料
+组装材料
+散装材料
+其它材料

作者: lantianhf06 发布时间: 2011-11-22

试试
Delphi(Pascal) code


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

作者: bdmh 发布时间: 2011-11-22

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

作者: Terony 发布时间: 2011-11-22

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

热门阅读

热门下载