Question

如何让VFP表单在运行时，鼠标选中某控件后可以自由移动？？就像移动桌面上的文件位置那样！！

Answer 1

在表单上新建两个属性:选中表单，在菜单中“表单”--“新建属性...”输入：xoffset后按添加，再输入：yoffset后按添加，再按关闭，属性里就有：
xoffset
yoffset
完成时它的值是.F.的，改为数字0 ，即xoffset=0，yoffset=0
在“表单”的事件方法:DragDrop Event中输入：LPARAMETERS oSource, nXCoord, nYCoord &&这行自生成
oSource.left=nXCoord-thisform.xoffset
oSource.top=nyCoord-thisform.yoffset在“图象控件”中(如Image1)的MouseMove Event中输入：注意：图象控件DragMode要为0--人工（默认）LPARAMETERS nButton, nShift, nXCoord, nYCoord &&这行自动生成
if nButton=1
thisform.xoffset=nXCoord-this.left
thisform.yoffset=nyCoord-this.top
this.drag
endif在“图象控件”中(如Image1)的DragDrop Event中输入：LPARAMETERS oSource, nXCoord, nYCoord &&这行自动生成
This.parent.dragdrop(oSource, nXCoord, nYCoord)