TreeView

添加项目

TreeView1.Items.Add(nil,'ABC');

 

 

 

删除选中的节点

TreeView1.Selected.Delete;

 

删除鼠标右键选中的节点

 

var
     node1 : TTreeNode ;
procedure  TForm1 . TreeView1MouseMove ( Sender :  TObject ;  Shift :  TShiftState ;  X ,
   Y :  Integer );
begin
     node1 := TreeView1 . GetNodeAt ( x , y );
end ;

procedure  TForm1 . Deete1Click ( Sender :  TObject );
begin
    TreeView1 . Items . Delete ( node1 );
end ;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

来自为知笔记(Wiz)