• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

Delphi树形控件(TreeView)节点间的拖动

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

Delphi树形控件(TreeView)节点间的拖动

 

  很久没写博客了,因为实在没什么东西可写。不过,今天以前的同事问我,关于TreeView的操作,那我就顺便写在博客里,稍微展开一下,说说TreeView吧。

  TTreeView是VCL里面一个类,也是我们经常会用到的,而且功能也是很强大的。与TreeView相关的一个极其重要的类就是TTreeNode,我们下面的操作,几乎都是在围绕着它进行的。下面直接切入正题,要实现节点间的拖动,都需要实现哪几个事件呢?

  1. 首先,要实现 OnMouseDown ,在其内要写入开启拖动的代码。
  2. 然后,要实现 OnDragOver ,其主要作用是在拖动过程中,实现对节点拖动目的(di)的控制。
  3. 最后,要实现 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如何使用,与本次的主题关系不大,以后有时间再来讲吧。


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
MATLAB 2014b for win64发布时间:2022-07-18
下一篇:
Matlab2014a 提示未找到支持的编译器或 SDK的解决方法 - 橙zz发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap