admin

[系统应用] delphi 拖动 panel 等物件控件

Panel的MouseDown事件
移动就写上
ReleaseCapture;
SendMessage(Panel1.Handle,wm_SysCommand,$F012,0);
改变大小就写上
ReleaseCapture;
SendMessage(Panel1.Handle,wm_SysCommand,$F008,0);
#1楼
发帖时间:1月前   |   查看数:0   |   回复数:0
游客组