Delphi 捕获窗体调整大小、移动时的消息(事件)

pnzebin

于 2021-09-03 11:27:03 发布

阅读量763

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi笔记文章标签： delphi

本文链接：https://blog.csdn.net/xiaobin_zb/article/details/120078103

Delphi笔记专栏收录该内容

39 篇文章

订阅专栏

该篇博客详细介绍了Delphi编程中窗体调整大小和移动时的三个关键消息处理函数：WMEnterSizeMove、WMMove和WMExitSizeMove。通过示例代码展示了如何在窗体开始调整大小、移动过程中以及结束调整大小时更新用户界面，从而实现更丰富的用户交互体验。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
  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;//窗体结束调整大小时的消息
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMEnterSizeMove(var Message: TMessage);   //窗体开始调整大小的消息
begin
  memo1.Lines.Add('窗体开始调整大小');
end;

procedure TForm1.WMMove(var Message: TMessage);//窗体正在移动时的消息
begin
  memo1.Lines.Add('窗体移动中...');
end;

procedure TForm1.WMExitSizeMove(var Message: TMessage); //窗体结束调整大小时的消息
begin
  memo1.Lines.Add('窗体结束调整大小');
end;

end.