有这样的源码吗？有关树形控件的

Question

我要实现以下功能：
1.增加一个根节点
2.在指定的根节点上动态增加子节点
3.子节点用mouse点击弹出相应子节点的caption
比如
--1
  --2
  --3
 
click 增加按钮--1
  --2
  --3
  --4

Answer 1

var
 RootNode,ChildNode:TTreenode;
 i:integer;
begin
 //添加根节点
 RootNode:=Treeview1.Items.Add(nil,'Root');
 //在根节点下添加三个子节点
 for i:=1 to 3 do
  Treeview1.Items.AddChild(RootNode,'Child'+IntToStr(i));
end;//在Treeview1的OnChange或OnClick中如下写，弹出......
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
 Showmessage(Treeview1.Selected.Text);
end;

Answer 2

我刚在delphi help中找到 :D