http://blog.codelphi.com/nil/articles/1483.aspx
只要在
onMouseDown事件里加入
ReleaseCapture;
((Sender as TControl).Owner as TForm).Perform(WM_SYSCOMMAND, $F012, 0);
ReleaseCapture;
((Sender as TControl).Owner as TForm).Perform(WM_SYSCOMMAND, $F012, 0);