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);
博客介绍了用非Form的控件拖动Form的最简单方法,即在onMouseDown事件里加入ReleaseCapture; ((Sender as TControl).Owner as TForm).Perform(WM_SYSCOMMAND, $F012, 0)。

被折叠的 条评论
为什么被折叠?



