以下代码写在了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) 报错
为什么,有什么替换方法?