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

2018-06-17 18:56:53来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

效果:

 

代码:

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

 

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:【Spine】Spine Runtime for Delphi移植笔记(三) - spine.type

下一篇:delphi XE Datasnap SERVER 在windows 7 下为服务添加描述信