Delphi树形控件(TreeView)节点间的拖动
很久没写博客了，因为实在没什么东西可写。不过，今天以前的同事问我，关于TreeView的操作，那我就顺便写在博客里，稍微展开一下，说说TreeView吧。
TTreeView是VCL里面一个类，也是我们经常会用到的，而且功能也是很强大的。与TreeView相关的一个极其重要的类就是TTreeNode，我们下面的操作，几乎都是在围绕着它进行的。下面直接切入正题，要实现节点间的拖动，都需要实现哪几个事件呢？
- 首先，要实现 OnMouseDown ，在其内要写入开启拖动的代码。
- 然后，要实现 OnDragOver ，其主要作用是在拖动过程中，实现对节点拖动目的(di)的控制。
- 最后，要实现 OnDragDrop ，其是实现拖动释放的操作。
这三个事件，我们可以简单的理解为，拖动开始、拖动过程、拖动结束（虽然“拖动开始”和“拖动结束”都有他们各自对应的事件，但是也不妨碍我们这样的理解）。首先是 OnMouseDown 事件。
procedure TfrmMain.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var node: TTreeNode; begin node := TreeView1.GetNodeAt(X, Y); // 获取鼠标按下位置的节点 if (node <> nil) and (node.Level > 0) and (Button = mbLeft) then TreeView1.BeginDrag(True); // 启动拖动 end;
需要注意的是，TreeView 控件的 DragMode 要设置为 dmManual，才会需要执行 BeginDrag 手工启动拖动。DragMode 的缺省值就是 dmManual。
接下来就是 OnDargOver 事件。
procedure TfrmMain.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); var node: TTreeNode; begin node := TreeView1.GetNodeAt(X, Y); // node.Level 是节点的层级，等于0时，表示是根节点(没有上级节点了) // 本语句控制只能将节点拖动到与父节点平级的其他节点上，Accept表示，是否可释放 if (node <> nil) and (node.Level = 0) and (TreeView1.Selected.Parent <> node) then Accept := True else Accept := False; end;
最后是实现 OnDragDrop 事件，此事件里就要写上与业务相关的代码了。
procedure TfrmMain.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer); var node: TTreeNode; begin node := TreeView1.GetNodeAt(X, Y); if (node <> nil) and (node.Level = 0) then begin // 此处用到了StateIndex，只是在生成TreeView的时候，将每条记录的主键值储存到了这里，并不代表StateIndex的实际意义 Query1.SQL.Text := ‘update sys_config set class_id=‘ + IntToStr(node.StateIndex) + ‘ where cid=‘ + IntToStr(TreeView1.Selected.StateIndex); if Query1.ExecSQL() > 0 then TreeView1.Selected.MoveTo(node, naAddChild); // 将节点移动到目标节点的下一级，也就是使目标节点成为被拖动节点的父节点 end; end;
至此，整个拖动就结束了。代码是不是很简单？又回到了我刚开始说的话，整个过程，都是在围绕着TTreeNode类进行的操作。最后，说明一下，代码中我使用到了TreeNode的StateIndex属性，实际上我这样的做法是不推荐的。我们推荐使用TreeNode的Data属性来保存额外的数据，而且这也是正宗的用法。Data属性可以保存任何数据，因为它是Pointer类型（无类型指针），相当于C++里面的void*。具体Data如何使用，与本次的主题关系不大，以后有时间再来讲吧。