君表EjunGrid控件推出了新的树表结合控件,
CheckBox有三种状态,选中,没选中,半选中状态。
实现这种效果,可以先给控件的TreeImageList绑定一个图片列表控件,
然后添加节点和子节点,代码可以这样写
procedure TCheckTreeGridForm.btnAddNodeClick(Sender: TObject); 
var 
 Node: TZcTreeNode; // 注意要引用ZcTrees单元 
begin 
 Node := EjunTreeGrid1.Tree.AddSibling(EjunTreeGrid1.CurNode); 
 Node.ImageIndex := 0; 
 Node.Checked := False; 
end; procedure TCheckTreeGridForm.btnAddChildNodeClick(Sender: TObject); 
var 
 Node: TZcTreeNode; // 注意要引用ZcTrees单元 
begin 
 if EjunTreeGrid1.CurNode <> nil then 
 begin 
 Node := EjunTreeGrid1.Tree.AddNode(EjunTreeGrid1.CurNode); 
 Node.ImageIndex := 0; 
 Node.Checked := False; 
 // 设置父节点的ImageIndex为文件夹图标 
 Node.Parent.ImageIndex := 2; 
 end; 
end;