Windows的自带控件（比如TButton）大多数消息都由它自己处理，Delphi覆盖了那么多WM_函数优先级较低，一般用不上

Posted 2020-07-06 朝闻道

在空窗体上放一个TButton，一个TPanel，然后把在TWinControl.WMEraseBkgnd里下断点：

procedure TWinControl.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin
  with ThemeServices do // 这里下断点
  if ThemesEnabled and Assigned(Parent) and (csParentBackground in FControlStyle) then
    begin
      { Get the parent to draw its background into the control‘s background. }
      DrawParentBackground(Handle, Message.DC, nil, False);
    end
    else
    begin
      { Only erase background if we‘re not doublebuffering or painting to memory. }
      if not FDoubleBuffered or
         (TMessage(Message).wParam = TMessage(Message).lParam) then
        FillRect(Message.DC, ClientRect, FBrush.Handle);
    end;

  Message.Result := 1;
end;

点击运行，发现程序两次停留在断点上，在观察窗口输入Self.Name，发现就是Form1和Panel1，而没有Button1停在这里。