图片在表单上拖动，到边界无法拖动，如何写代码?
表单上加载一个图片，使之可以拖动
FORM1上加一个IMAGE控件
在IMAGGE 控件的 mousemove 写代码，可以拖动
如何写代码，使图片到FORM的边界时就无法拖动？
[解决办法]
*-- Image 控件的 MouseDown 事件代码：
Lparameters nButton, nShift, nXCoord, nYCoord&&系统代码
If nButton=1&& 只允许鼠标左键移动
Thisform.CurrentX=nXCoord
Thisform.CurrentY=nYCoord
Endif
*-- Image 控件的 MouseMove 事件代码：
Lparameters nButton, nShift, nXCoord, nYCoord&&系统代码
If (nButton=1 And Thisform.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
