delphi中 panel如何在Form实现鼠标移动拖放?
Panel的MouseDown事件
移动就写上
ReleaseCapture;
SendMessage(Panel1.Handle,wm_SysCommand,$F012,0);
改变大小就写上
ReleaseCapture;
SendMessage(Panel1.Handle,wm_SysCommand,$F008,0);
- 上一篇 »JavaScript实现鼠标拖拽围绕圆心转动
- 下一篇 »DELPHI中拖放的操作
Panel的MouseDown事件
移动就写上
ReleaseCapture;
SendMessage(Panel1.Handle,wm_SysCommand,$F012,0);
改变大小就写上
ReleaseCapture;
SendMessage(Panel1.Handle,wm_SysCommand,$F008,0);