TreeView的使用（转载之tianyu00）

 

Edit1.Text:=TreeView.Selected.Text;     //当前节点内容

Edit2.Text:=TreeView.Selected.Parent.Text   //父节点内容

Edit3.Text:=inttostr(TreeView.Selected.Count);  //下级节点数

Edit4.Text:=inttostr(TreeView.Selected.Index);  //同级别的索引号

Edit5.Text:=inttostr(TreeView.Selected.Level);  //当前级别

Edit8.Text:=inttostr(TreeView.Items.Count);     //总节点数

Edit6.Text:=inttostr(TreeView.Selected.AbsoluteIndex); //全文索引号

Edit7.text:=TreeView.FindNextToSelect.Text;      //下一节点内容

TreeView.FullExpand; //展开全部节点

TreeView.FullCollapse;//收缩全部节点

TreeView.Selected.Delete//删除当前节点及子节点

TreeView.Items.AddChild(TreeView.Selected,Text);     //添加子节点,Text为内容可用变量赋值

TreeView.Selected.Expand(TreeView.Selected.Expanded);//展开当前节点

TreeView.Items.Add(TreeView.Selected,Text);//添加本级节点，Text为内容可用变量赋值

可以！
-----------------------------------------
直接点右键就可选中一个treeview中的节点
//先设置Treeview1.RightClickSelect:=true;

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var AnItem: TTreeNode;
begin
  if Button=mbRight then
     begin
     AnItem:=TreeView1.GetNodeAt(X, Y);
     if AnItem<>nil then TreeView1.Selected:=AnItem;
     end;
end;