Delphi如何检测Form的移动和调整尺寸事件


本文整理自网络,侵删。

 
如果你想检测用户何时开始调整窗口尺寸或移动窗口,何时完成该操作,你需要处理几个Windows消息。当窗口开始移动或调整大小时,WM_ENTERSIZEMOVE消息会向窗口发送一次。当退出窗口移动或大小调整时,WM_EXITSIZEMOVE消息会向窗口发送一次. 当窗口正在移动时,WM_MOVE消息会向窗口发送。



下面是一个例子,运行后移动该窗口,查看窗口标题:



type
   TForm1 = class(TForm)
   private
     procedure WMEnterSizeMove(var Message: TMessage) ; message WM_ENTERSIZEMOVE;
     procedure WMMove(var Message: TMessage) ; message WM_MOVE;
     procedure WMExitSizeMove(var Message: TMessage) ; message WM_EXITSIZEMOVE;
 
 
...
 
 
procedure TForm1.WMEnterSizeMove(var Message: TMessage) ;
begin
   Caption := 'Move / resize started';
end; (*WMEnterSizeMove*)
 
 
procedure TForm1.WMMove(var Message: TMessage) ;
begin
   Caption := Format('Form is being moved. Client area x: %d, y:%d', [TWMMove(Message).XPos,TWMMove(Message).YPos]) ;
end; (*WMMove*)
 
 
procedure TForm1.WMExitSizeMove(var Message: TMessage) ;
begin
   ShowMessage('Move / resize complete!') ;
end; (*WMExitSizeMove*)

相关阅读 >>

Delphi fmx用timage显示不同格式的图片

Delphi 如何从dll中检索导出函数的列表

Delphi html document接口获取网页中所有图片

Delphi xe 版本 示例原码下载

Delphi 16 进制转换为 10进制

Delphi 如何设置热键

Delphi firedac在后台线程中从mssql server检索记录的方法

Delphi中break,exit,abort跳出循环的比较

Delphi关于tjpegimage的使用(bmp\ jpg格式转换)

Delphi tms web core twebhttprequest使用

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...