在表格中显示树,且可以有打勾选择功能,CheckBox有三种状态

hszj 2008-08-20 12:45:55
君表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;


...全文
428 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
ZyxIp 2008-08-21
  • 打赏
  • 举报
回复
软件是不错,收费也没有错,但问题是没有源码.
RoverX 2008-08-20
  • 打赏
  • 举报
回复
原来是广告
Corn1 2008-08-20
  • 打赏
  • 举报
回复
表格,我只用cxGrid
hszj 2008-08-20
  • 打赏
  • 举报
回复
是在介绍一个不错的表格控件
Corn1 2008-08-20
  • 打赏
  • 举报
回复
楼主是在做广告呢,还是在提问?
caize131 2008-08-20
  • 打赏
  • 举报
回复
这是什么?

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧