效果: 代码: procedure TForm1.TreeView1ChangeCheck(Sender: TObject); var i: Integer; t: TTreeViewItem; begin t := TTreeViewItem(Sender); do t.Items[i].IsChecked := t.IsChecked; end; 源码下载:[示例]TreeViewCheck_Aone.zip…
搜集共性项和所有项 ###搜集共有参数值 def intersect(*args): res=[] for x in args[0]: for other in args[1:]: if x not in other :break else: res.append(x) return res ##搜集所有参数值 def union(*args): res=[] for seq in args: for x in seq: if not x in res: res.append(x) return…