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)