[示例] 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
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步