VFP 愛用者社區

[xdpxzhz]

&&移动没有标题栏的程式Form_Load
declare integer SendMessage in user32.dll integer hWnd,integer wMsg,integer Wparam,integer@ lparam
---->>>然后在一个Shape的控件_MouserDown里写入:
=SendMessage
HWND &&为窗口语柄
(hwnd,WM_SYSCOMMAND,SC_MOVE+HTCPTION,0)
请教各位老大一个问题为什么我在Shape里每做一次移动后鼠标好像没有"释放",要在人为单击一鼠标键,才能够移动,不知道为什么我释放不了鼠标!请教各位老大。