Delphi7使用TreeView添加数据

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的节点，会弹出相应点击信息的对话框。