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 map file

Delphi access 数据库压缩

Delphi 获取当前目录下所有文件名3

Delphi二进制字符串转换成中文字符串

Delphi 按esc快捷键退出程序的简单方法

Delphi 网址链接结尾自动补/

Delphi 权限控制(Delphi tactionlist方案)

Delphi调用rest

如何在Delphi中获取字符串字节数?

Delphi中利用钩子实现qq聊天窗口的修改

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...