Grid 的GragMode设成Auto,然后写TreeView的GragOver和GragDrop事件的处理方法
解决方案 »
- 如何判断线程实现完毕
- 我用Delphi写了一个DLL封装一个登录窗口老出问题。知道的高手进来瞅瞅
- OCX数字证书问题
- property CanUndo: Boolean read FCanUndo; 谁能解释一下,它的作用和意思吗?
- 怎么控制form的显示位置!
- 各位好。欢迎大家登陆nba.com去给姚明投票呀。。。。。加散分呀
- 为什么加到ShellTray的图标是16色的?
- 那位大侠用过DEV的控件?有关ExpressBars的问题!急急急急急!!在线等待!多少分随你要!
- DateTime 如何 转化为 TdateTime???
- 有谁知道这两个函数的详细用法?
- DB 和 DBF 使用起来有很大分别
- dephi制作的程序在不同分辨率下运行(急用)
当我把dbgrid上一条记录拖动到treeview中的某个结点上时,要求被拖动的这条记录的name字段的值变成,接点记录的caption ,请教, !
不要在 grid上的onmousedown和onmouseup上写代码了吗?
鼠标的单击变的无效了,所以,就不可以用鼠标来选择记录了。。:(
但是这时是不用自己写OnMouseDown和OnMouseMove的。如果要自己写MouseDown和MouseMove,来BeginDrag的话,在画有表格的区域是无效的,
不知道如何解法。
哦,找到了procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Caption := Format('X: %d, Y: %d', [X, Y]);
if ssLeft in Shift then
DBGrid1.BeginDrag(True);
end;照这个写法,鼠标按下,可以选择记录,并且可以进行拖动,
TreeView那边的操作,自己写写看了。