5,388
社区成员
发帖
与我相关
我的任务
分享
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;