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)

转载于:https://www.cnblogs.com/xe2011/p/3884318.html