标签：
提示：可以添加一个布尔来控制可否拖动的状态，这里提供所有都能拖动的方法。
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;
标签：
原文地址：http://www.cnblogs.com/Zory/p/5186708.html
