君表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;
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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货