Delphi中运行时改变panel的位置及大小
生活随笔
收集整理的這篇文章主要介紹了
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