请问怎样动态添加treeview的根节点很子节点？

[cdutboy20]

请问各位怎样动态添加treeview的父节点和子节点，并且可将添加的节点放到dbgrid的指定单元格中。最好是有较细的源代码。thank you！

[楚人无衣]

var
Nodeo: TTreeNode;
begin
Nodeo := TreeView1.Selected;
TreeView1.Items.AddChild(Nodeo, '子节点');
ADOQuery1.Edit;
DBGrid.Fields[1].AsString := '子节点';
ADOQuery1.Post;
...
end;

[loon1981]

利用连表阿。
你的表里要定义一个字段来存放他的父节点。。。
TREEVIEW在读这张表的时候来查找他的父节点。。。

[jinjazz]

procedure TForm1.Button1Click(Sender: TObject);
var T1,T2:Ttreenode;
begin
T1:=treeview1.Items.Add(nil,'top');
T2:=treeview1.Items.AddChild(T1,'branch');
treeview1.Items.AddChild(T2,'branch2');
T1.ImageIndex:=1;
//....
end;