如何设成任意部分都可以使用鼠标拖动的窗体。请大家帮帮忙！（非常急）

Question

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(WM_SYSCOMMAND, $F012, 0);
end;

Answer 1

楼上的做法我没有试,会不会让整个CLIENT都成了标题栏了?就是BUTTON都不可以点击了?

Answer 2

to taxi(游少爷):
谢谢你的帮助。照你的方法，问题已经解决了。
我想再问你几个问题，请你告诉我，好吗？对于 Perform(WM_SYSCOMMAND, $F012, 0); 
如果我换成了 perform(WM_SYSCOMMAND, sc_move, 0); 结果没有想象中那样满意，他的鼠标会自动调掉Caption Bar 那里去，我想问问你 $F012 到底是怎么回事？ 还有其他的值吗？你是如何获取这些函数及值的呢？ 你能email一份这方面的资料给我吗？
如果可以，email: [email protected]谢谢你！

Answer 3

下载地址：http://delphi.mychangshu.com/dispdoc.asp?id=168

Answer 4

MOUSEDOWN事件中写：
  if Button = mbLeft then
  begin
    ReleaseCapture;
    TWinControl(Sender).CurSor := crDrag;
    Perform(WM_SysCommand, SC_MOVE + 1, 0);
    TWinControl(Sender).CurSor := crDefault;
  end;

Answer 5

To taxi(游少爷):
哦，谢谢你，我已经down 了一份

Answer 6

To liang_z(千山一刀之忍者神龟):请问：
Perform(WM_SysCommand, SC_MOVE + 1, 0);中的SC_Move+1 代表什么？