鼠标拖动(移动、拖曳)控件

*!*     作者：十豆三
*!*     日期：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