无边框的窗体拖动

在窗体或背景图片的鼠标按下事件里加入如下代码：

 ReleaseCapture;
 SendMessage(handle,WM_SYSCOMMAND,SC_MOVE+HTCAPTION,0);