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)