delphi - WM_NCHITTEST 是否应该由 Win10 以每秒 100 次的频率永久生成，即使鼠标处于空闲状态？

Question

我遇到了 WM_NCHITTEST 的奇怪行为消息。
总而言之，一旦我将鼠标悬停在目标(即:Hooked)控件上并保持鼠标静止(或空闲)，我就会收到 无休止地百位 WM_NCHITTEST每秒消息。无论我是否对 WndProc 进行子类化都会发生这种情况该控件的 WindowProc() , 或者如果我 覆盖 WndProc子类中的方法(为了简单起见，我在下面的代码中子类化)。
据我从在线 Win32 API 文档和其他来源中找到的信息，我怀疑此消息是否以这种频率触发，但我可能是错的。或者可能有一个我完全错过的明显解释，或者我不知道的 API 发生了一些变化。无论如何，我真的很想知道它是什么，或者正在发生什么。
我已经在两个不同的系统上测试了相同的代码(下面的示例)，结果相同，尽管两个系统都在相同的 Delphi/OS 版本和配置中。我尝试在 IDE 之外运行应用程序(因此没有调试 Hook )，在调试和发布配置(后者没有调试信息)中，针对 32 位和 64 位，我总是得到相同的结果。
我正在 Win10 Pro 64 位版本 20H2(我相信是最新的 Windows 版本)下使用 Delphi XE7 Enterprise 进行开发。
这是一个非常简单的程序来重现我所经历的:TForm与 TPanel , TCheckBox , 和 TLabel .面板是勾选复选框时被钩住的控件，标签显示的是多少WM_NCHITTEST消息由 WndProc() 接收方法:

unit Unit5;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TForm5 = class(TForm)
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Panel1: TPanel;
    procedure FormDestroy(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    FHookedCtrl: TControl;
    FHookedCtrlWndProc: TWndMethod;
    FMessageCount: Integer;
    procedure SetHookedCtrl(const Value: TControl);
  public
    procedure ControlWndProc(var Message: TMessage);
    property HookedCtrl: TControl read FHookedCtrl write SetHookedCtrl;
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

{ TForm5 }

procedure TForm5.CheckBox1Click(Sender: TObject);
begin
  //checkbox activates or deactivates the hook
  if CheckBox1.Checked then
    //hook the panel's WndProc by subclassing
    HookedCtrl := Panel1
    //release the hook on WndProc
  else HookedCtrl := nil;
end;

procedure TForm5.ControlWndProc(var Message: TMessage);
begin
  case Message.Msg of
    WM_NCHITTEST:
      begin
        //show how many messages received with the label's caption
        Inc(FMessageCount);
        Label1.Caption := FormatFloat('##,##0 messages', FMessageCount);
      end;
  end;
  //not really handling the messsage, just counting.
  FHookedCtrlWndProc(Message);
end;

procedure TForm5.FormDestroy(Sender: TObject);
begin
  //make sure to clear the hook if assigned
  HookedCtrl := nil;
end;

procedure TForm5.SetHookedCtrl(const Value: TControl);
begin
  if (Value <> FHookedCtrl) then
  begin
    if Assigned(FHookedCtrl) then
    begin
      //release the hook
      FHookedCtrl.WindowProc := FHookedCtrlWndProc;
      FHookedCtrlWndProc := nil;
      FMessageCount := 0;
    end;
    FHookedCtrl := Value;
    if Assigned(FHookedCtrl) then
    begin
      //hook the panel (i.e. Value)
      FHookedCtrlWndProc := FHookedCtrl.WindowProc;
      FHookedCtrl.WindowProc := ControlWndProc;
    end;
  end;
end;

end.

重现:运行应用程序，选中 CheckBox，将鼠标悬停在面板上并让它保持空闲(静止)。就我而言，我收到了 100 个 WM_NCHITTEST每秒消息，它永远不会停止。这应该发生吗？
有人可以解释这里发生了什么吗？

Answer 1

我用过 Microsoft Spy++工具来查看会发生什么以及何时发生。
它是 WM_NCHITTEST 处理程序中的以下行

Label1.Caption := FormatFloat('##,##0 messages', FMessageCount);

这导致了这个问题。当您删除它时，所有这些 WM_NCHITTEST 都没有了。消息。要查看消息数量，请使用 TTimer以 1 秒的间隔并在标签中显示消息计数。你会看到你得到一个 WM_NCHITTEST每次计时器触发时(如果您有一个空的 OnTimer 处理程序，您仍然会收到一条消息)，当然还有鼠标移动时。
这是我使用的代码:

unit Unit5;


interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TForm5 = class(TForm)
    Label1: TLabel;
    CheckBox1: TCheckBox;
    Panel1: TPanel;
    Timer1: TTimer;
    procedure FormDestroy(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    FHookedCtrl: TControl;
    FHookedCtrlWndProc: TWndMethod;
    FMessageCount: Integer;
    procedure SetHookedCtrl(const Value: TControl);
  public
    procedure ControlWndProc(var Message: TMessage);
    property HookedCtrl: TControl read FHookedCtrl write SetHookedCtrl;
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

{ TForm5 }

procedure TForm5.CheckBox1Click(Sender: TObject);
begin
  //checkbox activates or deactivates the hook
  if CheckBox1.Checked then
    //hook the panel's WndProc by subclassing
    HookedCtrl := Panel1
  else
    //release the hook on WndProc
    HookedCtrl := nil;
end;

procedure TForm5.ControlWndProc(var Message: TMessage);
begin
  case Message.Msg of
    WM_NCHITTEST:
        //Count how many messages received
        Inc(FMessageCount);
  end;
  //not really handling the messsage, just counting.
  FHookedCtrlWndProc(Message);
end;

procedure TForm5.FormDestroy(Sender: TObject);
begin
  //make sure to clear the hook if assigned
  HookedCtrl := nil;
end;

procedure TForm5.SetHookedCtrl(const Value: TControl);
begin
  if (Value <> FHookedCtrl) then begin
    if Assigned(FHookedCtrl) then begin
      //release the hook
      FHookedCtrl.WindowProc := FHookedCtrlWndProc;
      FHookedCtrlWndProc := nil;
      FMessageCount := 0;
    end;
    FHookedCtrl := Value;
    if Assigned(FHookedCtrl) then begin
      //hook the panel (i.e. Value)
      FHookedCtrlWndProc := FHookedCtrl.WindowProc;
      FHookedCtrl.WindowProc := ControlWndProc;
    end;
  end;
end;

procedure TForm5.Timer1Timer(Sender: TObject);
begin
   // Show how many message received
   Label1.Caption := FormatFloat('##,##0 messages', FMessageCount);
end;

end.