首页 > 代码库 > delphi中 panel如何在Form实现鼠标移动拖放

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

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

 
 
在 Panel的
  MouseDown事件
  移动就写上
   ReleaseCapture;
   SendMessage(Panel1.Handle,wm_SysCommand,$F012,0);
 
   改变大小就写上
   ReleaseCapture;
   SendMessage(Panel1.Handle,wm_SysCommand,$F008,0);

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