[示例] Firemonkey TreeView 父项勾选子项连动

效果:

 

代码:

复制代码
procedure TForm1.TreeView1ChangeCheck(Sender: TObject);
var i: Integer;
    t: TTreeViewItem;
begin
     t := TTreeViewItem(Sender);

     for i:=0 to t.Count - 1 do
         t.Items[i].IsChecked := t.IsChecked;
end;
复制代码

 

源码下载:[示例]TreeViewCheck_Aone.zip

 

posted @   龟山Aone  阅读(903)  评论(0编辑  收藏  举报
编辑推荐:
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
· 没有源码,如何修改代码逻辑?
· 一个奇形怪状的面试题:Bean中的CHM要不要加volatile?
· [.NET]调用本地 Deepseek 模型
· 一个费力不讨好的项目,让我损失了近一半的绩效!
阅读排行:
· PowerShell开发游戏 · 打蜜蜂
· 在鹅厂做java开发是什么体验
· 百万级群聊的设计实践
· WPF到Web的无缝过渡:英雄联盟客户端的OpenSilver迁移实战
· 永远不要相信用户的输入:从 SQL 注入攻防看输入验证的重要性
历史上的今天:
2016-05-17 [函数] Firemonkey 取得 Windows 目前 User 的 Desktop 目录
点击右上角即可分享
微信分享提示