Delphi中treeview的使用部分 - 黑白程式

Delphi中treeview的使用部分

     

procedure TForm1.Button1Click(Sender: TObject);

var
  MyTreeNode1, MyTreeNode2: TTreeNode;
begin
  with TreeView1.Items do
  begin
    Clear; { remove any existing nodes }
    MyTreeNode1 := Add(nil, \'RootTreeNode1\'); { Add a root node }
    { Add a child node to the node just added }
    AddChild(MyTreeNode1,\'ChildNode1\');

    {Add another root node}
    MyTreeNode2 := Add(MyTreeNode1, \'RootTreeNode2\');
    {Give MyTreeNode2 to a child }
    AddChild(MyTreeNode2,\'ChildNode2\');

    {Change MyTreeNode2 to ChildNode2 }
    { and add a child node to it}
    MyTreeNode2 := TreeView1.Items[3];
    AddChild(MyTreeNode2,\'ChildNode2a\');

    {Add another child to ChildNode2, after ChildNode2a }
    Add(MyTreeNode2,\'ChildNode2b\');

    {add another root node}
    Add(MyTreeNode1, \'RootTreeNode3\');
  end;

end;