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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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;