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

Panel的MouseDown事件

移动就写上
ReleaseCapture;
SendMessage(Panel1.Handle,wm_SysCommand,$F012,0);

改变大小就写上
ReleaseCapture;
SendMessage(Panel1.Handle,wm_SysCommand,$F008,0);