delphi - 使用 Delphi 的消息关键字处理程序语法与变量常量？

Question

简短版本

任何使用方式:

    procedure WMStuff(var Message: TMessage); message WM_Stuff;

当WM_Stuff是变量时？

长版

Delphi 有一个绝对可爱的编译器魔法，可以使处理消息变得如此简单。您只需使用 message WM_TheMessage 关键字标记您的过程:

procedure WMGrobFrobber(var Message: TMessage); message WM_GrobFrobber;

并且您的过程将被调用来处理该消息。没有子类化。无需替换、存储和调用基本窗口过程。只是简单简单的魔法。

对于常量

当 WM_GrobFrobber 是 const 时，该消息效果很好:

const
   WM_GrobFrobber = WM_APP + $12A9;  //hopefully nobody's used this message before

但是这样声明的常量的缺点是:

• 我希望当消息广播到所有窗口时，没有其他组件或库已经将该常量用于其他用途
• 我无法将该消息广播、发送或发布到其他进程

Windows 建议您使用 RegisterWindowMessage 确保您安全地拥有唯一的消息编号:

Defines a new window message that is guaranteed to be unique throughout the system. The message value can be used when sending or posting messages.

The RegisterWindowMessage function is typically used to register messages for communicating between two cooperating applications.

If two different applications register the same message string, the applications return the same message value. The message remains registered until the session ends.

Only use RegisterWindowMessage when more than one application must process the same message. For sending private messages within a window class, an application can use any integer in the range WM_USER through 0x7FFF. (Messages in this range are private to a window class, not to an application. For example, predefined control classes such as BUTTON, EDIT, LISTBOX, and COMBOBOX may use values in this range.)

这就是我需要的:

• 我将从其他窗口类(例如 TForm1 vs TForm2 vs TVirtualTreeHintWorkerThread)发送(或接收)消息
• 我将从其他应用程序中的其他窗口类发送(或接收)消息。

所以我注册我的消息:

var
   WM_GrobFrobber: Cardinal;

initialization
    WM_GrobFrobber := RegisterWindowMessage('Contoso.Grobber.GrobFrobber message');

常量变量

但现在我不能再使用漂亮的语法了:

procedure WMGrobFrobber(var Message: TMessage); message WM_GrobFrobber;
   //Constant expression expected

:(

我尝试破解一个可分配类型常量:

{$J+}
const
   WM_GrobFrobber: Cardinal = 0;

initialization
    WM_GrobFrobber := RegisterWindowMessage('Contoso.Grobber.GrobFrobber message');

但是 message 关键字也不接受 *pseudo-* 常量:

procedure WMGrobFrobber(var Message: TMessage); message WM_GrobFrobber;
   //Constant expression expected

有没有什么方法可以挽救可爱、简单的message语法，而不必子类化每个可能想要处理消息的窗口？

特别是因为消息实际上不是常量；但是是由不是我的人发明和注册的。

Answer 1

正如 David 在他的回答中所述，声明性消息处理程序中的消息 ID 必须是常量表达式，因此无法以这种方式实现可变消息号的处理程序。

但是，您仍然不需要对每个窗口进行子类化即可响应此类消息。或者更确切地说，您不需要执行任何进一步比您已经通过声明表单或控件类进行的子类化。

您可以通过重写虚拟 WndProc 方法来处理自定义的注册消息。您将无法使用 select .. case 语句来处理消息，因为这同样需要匹配案例的常量表达式，但您可以使用简单的 if .. then 语句来捕获您的消息，为其他所有内容调用 inherited:

procedure TMyForm.WndProc(var aMessage: TMessage);
begin
  if aMessage.Msg = WM_GrobFrobber then
  begin
    { Handle the message or pass to a WMGrobFrabber() method 
      with suitably repacked and typed params, as required/desired }
  end
  else
    inherited WndProc(aMessage);
end;

您可以在表单类中引入一个虚拟 WMGrobFrabber，然后将其一致地用作应用程序中所有表单的基类，这样您就可以只需重写该方法来处理此消息，而不必每次都重复 WndProc 条件处理程序代码。

这并不能解决您的所有问题。它没有提供使用声明性消息处理程序语法的方法，但它仍然相当优雅(恕我直言)。

如果此类消息专门用于响应广播消息(我相信这是您需要担心消息 id 与其他人使用的消息 id 冲突的唯一情况)，那么您可以创建一个非可视组件来实现消息处理程序专门通过使用已发布的事件处理程序触发事件来响应此消息。然后，您根本不需要子类化来在表单上实现对此类广播的响应，只需将处理程序组件放在表单上并为该组件的事件实现处理程序即可。

这显然比回答这个问题更复杂，但可能值得考虑。