未收到 WM_DPICHANGE 消息

Question

我正在使用 Delphi XE7 测试有关使应用程序感知 DPI 的问题。

其中一项任务是响应当窗口移动到具有不同 DPI 值的监视器时应生成的 WM_DPICHANGE 消息。我没有设置多显示器，所以我编写了一个非常简单的测试程序来生成此消息，但在 windows 8.1 平台上没有收到它。它在 Windows 7 上运行良好。以下程序演示了这一点：

unit Main;

interface

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

const
   WM_DPICHANGED = 736;  // 0x02E0

type
  TMyForm = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure DPIChanged(var Message: TMessage); message WM_DPICHANGED;
  public
    { Public declarations }
  end;

var
  MyForm: TMyForm;

implementation

{$R *.dfm}

procedure TMyForm.Button1Click(Sender: TObject);
begin
   PostMessage(Self.Handle,WM_DPICHANGED,0,0);
end;

procedure TMyForm.DPIChanged(var Message: TMessage);
begin
   ShowMessage('Message WM_DPICHANGED Received');
end;

end.

在 Windows 8.1 下运行时不显示 ShowMessage。有什么东西在消息到达我的程序之前就吃掉了它吗？

Answer 1

WM_DPICHANGED 仅在 Windows 8.1 和更新版本上受支持。

当您说您的代码可以在 Windows 7 上运行时，实际上它的工作方式是单击按钮将消息发布到您的窗口，并且您正在捕获该消息。另一方面，它与实际 DPI 变化无关。在 Windows 7 上，WM_DPICHANGED 被视为您发送了一些自定义消息。

在 Windows 8.1 和更新版本上，WM_DPICHANGED 是 Windows API 定义的消息。使用 PostMessage 发送该消息失败，错误代码为 1159 ERROR_MESSAGE_SYNC_ONLY

该错误意味着您无法异步发送该特定消息。这里的问题在于这里的第二个参数，即在 Windows API 中定义的 WM_DPICHANGED 消息的情况下指向 RECT 结构的指针。

WM_DPICHANGED

• wParam - wParam 的 HIWORD 包含窗口新 dpi 的 Y 轴值。 wParam 的 LOWORD 包含 窗口新 DPI 的 X 轴值。例如，96、120、144、 或 192. X 轴和 Y 轴的值相同 Windows 应用。
• lParam - 一个指向 RECT 结构的 指针，该结构提供当前窗口的建议大小和位置，为新窗口缩放 DPI。期望应用程序将重新定位和调整窗口大小 根据处理此问题时 lParam 提供的建议 消息。

PostMessage

如果您将 WM_USER 以下范围内的消息发送到异步 消息函数（PostMessage、SendNotifyMessage 和 SendMessageCallback)，其消息参数不能包含指针。 否则，操作将失败。函数将在之前返回 接收线程有机会处理消息并且 sender 将在内存使用前释放内存。

如果您将代码中的 PostMessage 更改为 SendMessage，您的按钮点击也将在 Windows 8.1+ 上运行。

当然，如果您正确设置了应用程序 DPI 感知，它通常也会处理 Windows 发送的WM_DPICHANGED 消息。