在表单的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)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024