鼠标点击状态下移动窗体,在win10 下 sendmessage 通不过

[wwle]

以下代码写在了mousemove事件内 (win7下没问题)


#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)


ReleaseCapture()不报错
SendMessage(thisform.HWnd,WM_SYSCOMMAND,SC_MOVE+HTCAPTION, 0) 报错
为什么,有什么替换方法?

[都市夜猫]

跟 win10 无关吧 看上去 DECLARE INTEGER ReleaseCapture IN user32 这句后面，多了一个分号

[wwle]

win7 下没有报错,win10 下就不行了.哈哈 并且 最近win10更新过.