procedure TForm1.pnl1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; SendMessage(pnl1.Handle,wm_SysCommand,$F012,0);//改变位置 //ReleaseCapture; //SendMessage(pnl1.Handle,wm_SysCommand,$F008,0);//改变大小 end;
http://blog.csdn.net/diligentcatrich/article/details/7789861
Delphi中运行时改变panel的位置及大小（WM_SysCommand消息配合参数使用，很奇妙） good
原文：http://www.cnblogs.com/findumars/p/5011870.html