delphi 添加节点

//在选中的节点中上添加1个节点

procedure TForm1.Button1Click(Sender: TObject);
begin
    with TreeView1 do

    begin

        Items.AddChild(Selected,'aaa');

    end;
end;

//添加节点

procedure TForm1.Button1Click(Sender: TObject);
begin
    with TreeView1 do

    begin

        Items.Add(nil,'abc'); 

    end;
end;

来自为知笔记(Wiz)