TreeView的使用

Question

TreeView1.Items.AddChild(Node,edit1.Text+''+edit2.Text);
Node是父结点。

Answer 1

TreeView1.Items.Add(nil,edit1.Text+''+edit2.Text);
  TreeView1.Items.AddChild(Node,edit3.Text);Node 怎么定义呢？

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  Node:TTreeNode;
begin
  TreeView1.Items.Add(nil,edit1.Text+''+edit2.Text);
  TreeView1.Items.AddChild(Node,edit3.Text);
end;end.
我的程序怎么会有错误呢？

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  myNode:TTreeNode; //最好不要用Node做变量名，我不确定是否是保留字
begin
  myNode:=TreeView1.Items.Add(nil,edit1.Text+''+edit2.Text);
  //给Node赋值
  TreeView1.Items.AddChild(myNode,edit3.Text);
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  Node:TTreeNode;
begin
  Node:=TreeView1.Items.Add(nil,edit1.Text+''+edit2.Text);
  TreeView1.Items.AddChild(Node,edit3.Text);
end;end.

Answer 5

Procedure.......
var Node:Ttreenode;
begin
  Node:=TreeView.selected;
  //或者用这个函数得到当前选择的节点
  Node:=Treeview.getnodeat(x,y);//这个函数在MouseDown事件中写 
  Treeview.items.AddChild(Node,Edit1.Text);  
end;