delphi中 panel如何在Form实现鼠标移动拖放

时间：2014-10-26 14:25:06 收藏：0 阅读：341

在 Panel的

MouseDown事件

移动就写上

ReleaseCapture;

SendMessage(Panel1.Handle,wm_SysCommand,$F012,0);

改变大小就写上

ReleaseCapture;

SendMessage(Panel1.Handle,wm_SysCommand,$F008,0);

原文：http://my.oschina.net/u/582827/blog/337397