VFP 愛用者社區

[ufochen]

以前曾經在論壇看到過 , 不過現在找不到了 , 請會的人說一下吧 , 謝謝 !

[ufochen]

找到資料了!

*** 方法一 *************************
** 在表單的MouseDown事件放入下面代碼 **
#DEFINE WM_SYSCOMMAND 0x112
#DEFINE WM_LBUTTONUP 0x202
#DEFINE MOUSE_MOVE 0xf012

DECLARE Long ReleaseCapture IN WIN32API
DECLARE Long SendMessage IN WIN32API ；
Long HWND, Long wMsg, Long wParam, Long Lparam
IF nButton = 1
= ReleaseCapture（）
= SendMessage（Thisform.HWnd, WM_LBUTTONUP, 0x0, 0x0）
= SendMessage（Thisform.HWnd, WM_SYSCOMMAND, MOUSE_MOVE, 0x0）
ENDIF


** 方法二 *********************************************

1.給要移動的表單自定義兩個新屬性：mouseX ,mouseY，
用於記錄當前鼠標點擊時的位置
2.表單的MouseDown事件代碼：
LPARAMETERS nButton, nShift, nXCoord, nYCoord

IF nButton = 1 ＆＆ 如果鼠標左鍵按下
thisform.mouseX = nXCoord ＆＆ 記錄鼠標點擊的X坐標
thisform.mouseY = nYCoord ＆＆ 記錄鼠標點擊的Y坐標
ENDIF

3.表單的MouseMove事件代碼：

LPARAMETERS nButton, nShift, nXCoord, nYCoord

IF Mdown（） .AND. nButton=1

* 設置表單的Left 值和Top 值，達到移動表單的效果
thisform.Left = thisform.Left + （nXCoord - thisform.mouseX）
thisform.Top = thisform.Top + （nYCoord - thisform.mouseY）
ENDIF