treeview问题,如何在根节点添加子节点

Question

本帖最后由 lenny40 于 2010-04-21 16:28:16 编辑

Answer 1

 for   I   :=   0   to   treeview1.items.count   -   1   do   
        begin   
              node   :=     treeview1.items[i];   
              if   (node.text   =   'a')   and   (node.Level     =   0)then       
              begin   
                TreeView1.Items.AddChildFirst   (node,'a');   
              end   ;  
if   (node.text   =   'b')   and   (node.Level     =   0)then       
              begin   
                TreeView1.Items.AddChildFirst   (node,'b');   
              end   ;  
if   (node.text   =   'c')   and   (node.Level     =   0)then       
              begin   
                TreeView1.Items.AddChildFirst   (node,'c');   
              end   ;   
        end   ;   

Answer 2

我试了一下楼上的,但是好像只有增加a,b怎么没有c啊?
还是感谢楼上~~~~
能帮我再看下么

Answer 3

var
  i: Integer;
  Node: TTreeNode;
begin
  for i := TreeView1.Items.Count - 1 downto 0 do
  begin
    Node := TreeView1.Items[i];
    if Node.Level = 0 then
      TreeView1.Items.AddChild(Node, Node.Text);
  end;
end;