点击form其他地方移动form方法

比如鼠标左键点击form中的一个button就可以移动整个窗体，只需在其mousemove事件中加入以下代码。

procedure TForm1.btn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

  ReleaseCapture;
  SendMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
end;