1、打开Delphi7集成开发环境，在默认工程的Form1窗体上放置一个TreeView1控件。TreeView在Win32组件面板
2、在Form1窗体的OnShow事件中，添加代码，为TreeView1添加节点TreeNode。代码如下：
procedure TForm1.FormShow(Sender: TObject);
var
trNode,trSecNode1,trSecNode2:TTreeNode;
begin
trNode:= treeview1.Items.AddFirst(nil,'信息');
trSecNode1 := treeview1.Items.AddChild(trNode,'子信息1');
trSecNode2 := treeview1.Items.AddChild(trNode,'子信息2');
end;
解释一下：
function TTreeNodes.AddFirst(Sibling: TTreeNode; const S: string): TTreeNode;
第一个参数兄弟节点，因为只有一个根节点，所以第一个参数传递nil
第二个参数为节点字符串名
function TTreeNodes.AddChild(Parent: TTreeNode; const S: string): TTreeNode;
为根节点添加子节点，第一个参数为父节点项，这里就是上面的根节点。
第二个参数为节点字符串名
3、F9运行程序，会发现我们TreeView1正常显示了节点信息，点击根节点左边的加号可以展开子节点。我们也可以在添加节点后，加一行代码：
treeview1.FullExpand;这样程序运行时就会默认展开所有节点。
4、为TreeView1添加点击事件，在TreeView1的Object Inspector面板的Events事件里找到OnClick事件，双击进入事件代码，并添加如下代码：
procedure TForm1.TreeView1Click(Sender: TObject);
begin
if treeview1.Selected <> nil then
showmessage(treeview1.Selected.Text);
end;
5、F9运行程序，点击TreeView1的节点，会弹出相应点击信息的对话框。
