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的ObjectInspector面板的Events事件里找到OnClick事件，双击进入事件代码，并添加如下沪枭诽纾代码：procedure TForm1.TreeView1Click(Sender: TObject);begin if treeview1.Selected <> nil then showmessage(treeview1.Selected.Text);end;
5、F9运行程序，点击TreeView1的节点，会弹出相应点击信息的对话框。
