类型:转载 责任编辑:asp 日期:2007/03/01
请举一个树状形的事例,接近erp系统,
我这个例子是一个子程序:主要是指针连接不上主程序(树状形的节点)
procedure tfrmpartbom.formdblclick(sender: tobject);
var
root :ttreenode;
node :ttreenode;
parentnode :ttreenode;
data :^string;
begin
with frmmain.treeview1.items do
root :=frmmain.treeview1.items.addchild(parentnode,bom资料维护);
root :=frmmain.treeview1.items.addchildobject(parentnode,bom资料维护,data);
parentnode :=frmmain.treeview1.items.addchildobject(root,每日作业,data);
end;
推荐阅读