2012年7月12日
Delphi 实现TreeView结点拖拽的实例(转)
摘要： Delphi 实现TreeView结点拖拽的实例(转)2010-09-16 21:03Delphi 实现TreeView结点拖拽的实例2010-06-04 11:15转载自 BD枫枫最终编辑 BD枫枫下面的程序片段演示了如何实现拖拽treeview构件结点的例子 {鼠标按下时执行的语句} procedure TForm1.Treeview1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin {判断左键按下并且鼠标点在一个结点上开始实现拖拽} if ( Button 阅读全文
posted @ 2012-07-12 17:43 马儿快跑 阅读(3631) 评论(0) 推荐(0) 编辑
两个treeview之间的拖拽
摘要： 下面是单向拖拽，如果要互相拖拽，原理是相同的。 procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin {判断左键按下并且鼠标点在一个结点上开始实现拖拽} if ( Button = mbLeft ) and ( htOnItem in Treeview1.GetHitTestInfoAt( X, Y ) ) then begin Treeview1... 阅读全文
posted @ 2012-07-12 16:56 马儿快跑 阅读(969) 评论(0) 推荐(0) 编辑
关于原版TreeView的使用
摘要： -- 作者：贾渊-- 发布时间：2010-4-24 7:46:08-- [原创]关于原版TreeView的使用D7中原版的TreeView就很好用，但是却没有一个属性可以直接设置节点的CheckBox，经过摸索，找到一个较好的解决方案。view plaincopy to clipboardprint?const TVS_CHECKBOXES = $00000100; procedure TForm1.SetComCtrlStyle(WinCtrl: TWinControl; Value: Integer; UseStyle: Boolean); var Style: Integer; be.. 阅读全文
posted @ 2012-07-12 00:18 马儿快跑 阅读(849) 评论(0) 推荐(0) 编辑