回复 楼主 hshcib
*!*
作者：十豆三
*!*
日期：2012-11-05
*!*
vfp版本：vfp9.0(SP2 7423)
*!* 操作系统：Windows XP(SP3)
*!*
功能：鼠标拖动(移动、拖曳)控件
方法一：
*!*控件的MouseDown事件
Lparameters nButton, nShift, nXCoord, nYCoord&&系统代码
If nButton=1&& 只允许鼠标左键移动
Thisform.CurrentX=nXCoord
Thisform.CurrentY=nYCoord
Endif
*!*控件的MouseMove事件
Lparameters nButton, nShift, nXCoord, nYCoord&&系统代码
If (nButton=1 AndThisform.CurrentX#0) And Not (Thisform.CurrentX=nXCoord And Thisform.CurrentY=nYCoord)&& nButton=1 只允许鼠标左键移动
This.Move(This.Left+(nXCoord-Thisform.CurrentX),This.Top+(nYCoord-Thisform.CurrentY))
Thisform.CurrentX=nXCoord
Thisform.CurrentY=nYCoord
Endif
*!*如果不想让控件移出表单，控件的MouseMove事件改为
Lparameters nButton, nShift, nXCoord, nYCoord&&系统代码
If (nButton=1 AndThisform.CurrentX#0) And Not (Thisform.CurrentX=nXCoord And Thisform.CurrentY=nYCoord)&& nButton=1 只允许鼠标左键移动
lnNewLeft=Min(Max(This.Left+(nXCoord-Thisform.CurrentX),0),Thisform.Width-This.Width)
lnNewTop=Min(Max(This.Top+(nYCoord-Thisform.CurrentY),0),Thisform.Height-This.Height)
This.Move(lnNewLeft,lnNewTop)
Thisform.CurrentX=nXCoord
Thisform.CurrentY=nYCoord
Endif
方法二：效果不如方法一好
*!*控件的MouseMove事件：
Lparameters nButton, nShift, nXCoord, nYCoord&&系统代码
If nButton=1&& 只允许鼠标左键移动
This.Drag(1)
This.Move(This.Left+(Mcol(Thisform.Name,3)-nXCoord),This.Top+(Mrow(Thisform.Name,3)-nYCoord))
Endif
————————————————
版权声明：本文为CSDN博主「十豆三」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.
