本文整理自网络，侵删。
如果你想检测用户何时开始调整窗口尺寸或移动窗口，何时完成该操作，你需要处理几个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 html document接口获取网页中所有图片
Delphi firedac在后台线程中从mssql server检索记录的方法
Delphi中break,exit,abort跳出循环的比较
Delphi关于tjpegimage的使用(bmp\ jpg格式转换）
Delphi tms web core twebhttprequest使用
更多相关阅读请进入《Delphi》频道 >>
