Question

VFP表单问题：实现窗口移动

表单无边框，如何实现鼠标点着界面然后随意移动到屏幕的任意位置？注：1、窗口无标题栏 2、鼠标点住后窗口随鼠标移动 特别：问题提出即有其意义，请不回的不要回答！谢谢合作！ 回答可行另加50分！诚请高手帮忙！

Answer 1

在表单的MouseMove方法中输入下列代码：LPARAMETERS nButton, nShift, nXCoord, nYCoord
#DEFINE WM_SYSCOMMAND 0x0112
#DEFINE SC_MOVE 0xF010
#DEFINE HTCAPTION 2
thisform.MousePointer=15
DECLARE INTEGER ReleaseCapture IN user32
DECLARE INTEGER SendMessage IN user32;
INTEGER hWnd,;
INTEGER Msg,;
INTEGER wParam,;
INTEGER lParam
ReleaseCapture()
SendMessage(thisform.HWnd,WM_SYSCOMMAND,SC_MOVE+HTCAPTION, 0)