当前位置：
首页 >
Delphi中运行时改变panel的位置及大小
发布时间：2025/3/15
30
豆豆
生活随笔
收集整理的这篇文章主要介绍了
Delphi中运行时改变panel的位置及大小
小编觉得挺不错的,现在分享给大家,帮大家做个参考.
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;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(pnl1.Handle,wm_SysCommand,$F012,0);//改变位置
//ReleaseCapture;
//SendMessage(pnl1.Handle,wm_SysCommand,$F008,0);//改变大小
end;
总结
以上是生活随笔为你收集整理的Delphi中运行时改变panel的位置及大小的全部内容，希望文章能够帮你解决所遇到的问题。
- 上一篇： 安静的飞鸽传书2011绿色版地方
- 下一篇： 圳不完全启示录之初来乍到----2