高分求救大虾!

Question

请问大虾:
    在TreeView控件中如何在程序中动态添加根节点.谢谢!

Answer 1

TreeView1.Items.AddChild(TreeView1.Selected, '测试看看');

Answer 2

动态增加根节点要用Add方法，增加子节点用AddChild方法！

Answer 3

比如第一层显示年,第二层显示月,第三层显示日
procedure TForm1.FormCreate(Sender: TObject);
var
  l_Node1, l_Node2: TTreeNode;
begin
  with Query1 do
  begin
    close;
    SQL.Text := 'select yy from code';
    Open;
    //第一层
    while not Eof do
    begin
      l_Node1 := TreeView1.Items.Add(nil, FieldByName('yy').AsString);
      //第二层
      with Query2 do
      begin
        close;
        SQL.Text := 'select mm from code where yy =' + QuotedStr(Query1.FieldByName('yy').AsString);
        Open;
        //第三层
        while not eof do
        begin
          l_Node2 := TreeView1.Items.AddChild(l_Node1, FieldByName('mm').AsString);
          with Query3 do
          begin
            close;
            SQL.Text := 'select dd from code where mm =' + QuotedStr(Query2.FieldByName('mm').AsString) +
              ' and yy=' + QuotedStr(Query1.FieldByName('yy').AsString);
            Open;
            while not eof do
            begin
              TreeView1.Items.AddChild(l_Node2, FieldByName('dd').AsString);
              Next;
            end;
            Close;
          end;
          Next;
        end;
        Close;
      end;
      Next;
    end;
    Close;
  end;
end;

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
var
  bn: TTreeNode;
begin
  bn := TreeView1.Items.AddFirst(nil, '根节点');
  TreeView1.Items.AddChild(bn, '次节点')
end;

Answer 5

TreeView.Items.Add(nil,'node')
这个就可以了吧！还有什么情况？

Answer 6

动态增加根节点要用Add方法，增加子节点用AddChild方法
TreeView.Items.Add(nil,'node')
TreeView.Items.AddChild(nil,'node')

Answer 7

TreeView.Items.Add(nil,'node')
TreeView.Items.AddChild(nil,'node')

Answer 8

在create的中添加TreeView1.Items.AddFirst(nil, '根节点');
  
TreeView1.Items.AddChild(bn, '次节点')