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

Panel的MouseDown事件

移动就写上

ReleaseCapture;

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

改变大小就写上

ReleaseCapture;

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