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判断线程是否释放

Delphi 如何获取进程的全路径名

Delphi 如何取得键盘每个键

Delphi mscomm1自动获取串口

Delphi 多线程 开始、暂停、继续、停止

Delphi 回车 选择下一个控件

Delphi-adoquery查询、插入、删除、修改

Delphi 映像劫持编辑器

Delphi 用ado从文本文件中导入数据库的两种方法比较

Delphi winapi: getnextwindow - 获取指定窗口z上或z下的窗口的句柄

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

转载请注明出处：木庄网络博客 » Delphi如何检测Form的移动和调整尺寸事件