to zswang(伴水)(被黑中)

[yang_113]

你在“关于移动问题”中有一句
TWinControl(Sender).Perform(WM_SYSCOMMAND, SC_MOVE + 1, 0);
我的问题是SC_Move代表什么，
你的答案我在帮助中也看到了，但上面只有SC_Move的解释，并没有SC_Move+1
我试过把SC_Move+1改为SC_Move，结果是不行的，
我想问SC_Move+1代表什么
—————

[kevin_gao]

是Windows定义的一个常量！
SC_MOVE = 61456;

[yang_113]

但它是SC_MOVE + 1 啊， 不是SC_MOVE

[kevin_gao]

这个要看windows是怎么处理WM_SYSCOMMAND消息的了，偶好象没有这方面的资料。关注先！

[王集鹄]

WM_SYSCOMMAND //系统命令的消息
uCmdType = wParam; // type of system command requested
xPos = LOWORD(lParam); // horizontal postion, in screen coordinates
yPos = HIWORD(lParam); // vertical postion, in screen coordinates

SC_MOVE //移动请求

//就是试出来的，也不知道为什么非要加一(加二也可以)

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
TWinControl(Sender).Perform(WM_SYSCOMMAND, SC_MOVE + 1, 0);
end;

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
TWinControl(Sender).Perform(WM_SYSCOMMAND, SC_MOVE - 1 , 0);
end;