Delphi treeview节点展开与折叠

本文整理自网络，侵删。

 
怎么样在程序中使一个节点的子节点展开及收闭？
答：
treeview1.selected.Expanded; //判断节点的子节点是否展开True展开，否则闭拢
treeview1.selected.Expand(True); //子节点展开
treeview1.selected.collapse(True): //子节点闭拢

树节点全部展开：
procedure TForm1.Button1Click(Sender: TObject);
var
  node: TTreeNode;
begin
  if treeview1.Items[0] <> nil then
  begin
    node := treeview1.Items[0];
    node.Expand(True);
    while node.getNextSibling <> nil do
    begin
      node := node.getNextSibling;
      node.Expand(True);
    end;
  end;
end;


树节点全部收缩：
procedure TForm1.Button2Click(Sender: TObject);
var
  node: TTreeNode;
begin
  if treeview1.Items[0] <> nil then
  begin
    node := treeview1.Items[0];
    node.collapse(True);
    while node.getNextSibling <> nil do
    begin
      node := node.getNextSibling;
      node.collapse(True);
    end;
  end;
end;
 

相关阅读 >>

Delphi firedac 连接sql server一些要注意的地方

Delphi jpg文件合并器代码

Delphi定位注册表指定键位

Delphi实现win10下Delphi 10.3.1 inline hook 修改mac网卡地址之getadaptersaddresses

Delphi的常用条件编译指令

Delphi 获取带分隔符字符串中的字段值

Delphi xe10 针对全面屏手机端无法全面显示，下方显示黑条的处理

Delphi memo 内容每n行分批处理

选择 Delphi 的 9 条理由

Delphi编程实现sql server挂起清除

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi treeview节点展开与折叠