拖动无标题栏窗体的方法

在任何控件的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;
源代码网推荐 end.