Question

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

如果无法实现如何放大缩小

Answer 1

Panel的MouseDown事件

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

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