拖动无标题栏窗体的方法

在任何控件MouseDown事件中加入相似代码，可以实现任何控件拖动窗体。

procedure TVolumeForm.Panel1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
  SC_DRAGMOVE:Longint=$F012;
begin
  ReleaseCapture;
  SendMessage(Handle,WM_SYSCOMMAND,SC_DRAGMOVE,0);
end;