DelPhi Treeview 操作实例.docx

DelPhi Treeview 操作实例 onclick节点 treeview1.Selected.Level2011-08-31 15:58怎么改变Treeview中的图标? OnClick事件Click获取Node.text 批量处理及实现TreeView结点拖拽的实例//这个过程根据你的要求选择图标procedure TForm1.TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);begin if Node.HasChildren then if Node.Expanded then Node.ImageIndex := 3 //节点有子节点时打开的图标 else Node.ImageIndex := 0 //节点有子节点时收起来的图标 else Node.ImageIndex := 1; //节点没有子节点时图标end;//这个过程显示选择的图标procedure TForm1.TreeView1GetSelectedIndex(Sender: TObject; Node: TTreeNode);begin Node.SelectedIndex := Node.ImageIndex; //节点选择后使用的图标end;——————————————————————————————————-//treeview的单击事件procedure TForm1.TreeView1Click(Sender: TObject);begin//如果选中节点的等级（level）为0（根节点等级为0，根节点的子节点等级为1，依次类推）并且其序号(index)为0（同等级下的的节点按从上到下数第一个为0，第二个为1，以此类推）if(treeview1.Selected.Level = 0)and(treeview1.Selected.Index = 0) thenbegin//这里写点中了第一个根节点后要做的事form1.Color := clred;endelseif (treeview1.Selected.Level = 1)and(treeview1.Selected.Index=1) thenbegin//这里写点中了第三个根节点的第2个子节点后要做的事form1.Color := clblue;end;end;//如果你想点节点前的“+”号也有同样的效果，那么就应该在Expanding事件里写判断处理程序。//【补充】【如果你不想要点+号的时候触发事件，这下面的可以删去】procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;var AllowExpansion: Boolean);beginif(node.Level = 0)and(node.Index = 0) thenbeginform1.Color := clred;endelseif (node.Level = 1)and(node.Index=1) thenbeginform1.Color := clblue;end;end;//直接Click获取Node.textprocedure TForm1.TreeView1Click(Sender: TObject);begin if TreeView1.Selected.Index = 0 then Edit1.Text := TreeView1.Selected.Text;end;————————————————————————————————————-//如何批量处理TreeView结点使用TreeView的items属性的BeginUpdate和EndUpdate方法，例：TreeView1.items.BeginUpdate;for i:=0 to TreeView1.items.count-1 dobeginfile ://将每个结点的文字改成为小写字母TreeView1.items[i].text:=lowercase(TreeView1.items[i].text);end;TreeView1.items.EndUpdate;————————————————————————————————————-//实现TreeView结点拖拽的实例下面的程序片段演示了如何实现拖拽treeview构件结点的例子{鼠标按下时执行的语句}procedure TForm1.Treeview1MouseDown(Sender: TObject;Button: TMouseButton; Shift: TS