提示：可以添加一个布尔来控制可否拖动的状态，这里提供所有都能拖动的方法。


1 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
2   Shift: TShiftState; X, Y: Integer);
3 begin
4   ReleaseCapture;
5   SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
6 end;