父项勾选子项连动

2019-10-12 07:06 来源:未知
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

 

少儿游戏下载,代码:

少儿游戏下载 1

 

效果:

TAG标签:
版权声明:本文由银河国际点击登录发布于少儿游戏下载,转载请注明出处:父项勾选子项连动