首页 > 代码库 > delphi 添加节点

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)