¿Usa la sintaxis del controlador de palabras clave del mensaje de Delphi con constantes variables?

Como David afirma en su respuesta, se requiere que las ID de mensajes en los manejadores de mensajes declarativos sean expresiones constantes, por lo que no hay forma de implementar un manejador para un número de mensaje variable de esta manera.

Sin embargo, todavía no necesita subclasificar todas las ventanas para poder responder a dichos mensajes. O, más bien, no necesita realizar ninguna subclasificación adicional de la que ya está haciendo declarando un formulario o clase de control.

Puede manejar su mensaje personalizado y registrado anulando el método virtual WndProc. No podrá usar una declaración select .. case para manejar el mensaje, ya que esto requiere expresiones constantes para los casos coincidentes, pero puede usar una simple declaración if .. then para captar su mensaje, llamando a {{ X3}} para todo lo demás:

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;

Puede introducir un virtual WMGrobFrabber en una clase de formulario que luego usa de manera consistente como la clase base para todos los formularios en su (s) aplicación (es), de modo que simplemente pueda anular ese método para manejar este mensaje, en lugar de tener que regurgitar el código de controlador condicional WndProc cada vez.

Esto no resuelve todos tus problemas. No proporciona una forma de utilizar la sintaxis del controlador de mensajes declarativos, pero sigue siendo bastante elegante (en mi humilde opinión).

Si dichos mensajes se usan exclusivamente para responder a mensajes de difusión (lo cual creo que es la única circunstancia en la que debe preocuparse por la identificación de mensajes en conflicto con los utilizados por otros), entonces podría crear un componente no visual que implemente un controlador de mensajes específicamente para responder a este mensaje disparando un evento con un controlador de eventos publicado. Entonces no necesita subclases para implementar una respuesta a tales transmisiones en un formulario, simplemente suelte un componente de controlador en el formulario e implemente un controlador para el evento del componente.

Obviamente, eso es más complicado de lo que sería apropiado tratar en una respuesta a esta pregunta, pero podría valer la pena considerarlo.

Si guarda este código en HeartWare.VCL.Extensions.MultiCastMessage.PAS

UNIT HeartWare.VCL.Extensions.MultiCastMessage;

INTERFACE

USES WinAPI.Messages,
     VCL.Forms,
     Generics.Collections;

TYPE
  TForm         = CLASS(VCL.Forms.TForm)
                    DESTRUCTOR  Destroy; OVERRIDE;
                  STRICT PRIVATE
                    TYPE        TMessageNo       = Cardinal;
                    TYPE        TMessageHandler  = REFERENCE TO PROCEDURE(VAR MSG : TMessage);
                    TYPE        TMessageHandlers = TList<TMessageHandler>;
                    TYPE        TEvents          = TObjectDictionary<TMessageNo,TMessageHandlers>;
                    VAR         Events           : TEvents;
                  STRICT PROTECTED
                    TYPE        TToken           = RECORD
                                                     MsgNo,Index        : Cardinal
                                                   END;
                  PROTECTED
                    PROCEDURE   WndProc(VAR Message : TMessage); OVERRIDE;
                    FUNCTION    AddHandler(MsgNo : TMessageNo ; Handler : TMessageHandler) : TToken;
                    PROCEDURE   RemoveHandler(VAR Token : TToken);
                  END;

IMPLEMENTATION

USES System.SysUtils;

FUNCTION TForm.AddHandler(MsgNo : TMessageNo ; Handler : TMessageHandler) : TToken;
  VAR
    Handlers    : TMessageHandlers;

  BEGIN
    IF NOT Assigned(Events) THEN Events:=TEvents.Create([doOwnsValues]);
    IF NOT Events.TryGetValue(MsgNo,Handlers) THEN BEGIN
      Handlers:=TMessageHandlers.Create;
      Events.Add(MsgNo,Handlers)
    END;
    Result.MsgNo:=MsgNo;
    Result.Index:=Handlers.Add(Handler)
  END;

DESTRUCTOR TForm.Destroy;
  BEGIN
    FreeAndNIL(Events);
    INHERITED
  END;

PROCEDURE TForm.RemoveHandler(VAR Token : TToken);
  BEGIN
    Events[Token.MsgNo][Token.Index]:=NIL;
    Token:=Default(TToken)
  END;

PROCEDURE TForm.WndProc(VAR Message : TMessage);
  VAR
    Handlers    : TMessageHandlers;
    Handler     : TMessageHandler;

  BEGIN
    IF Assigned(Events) AND Events.TryGetValue(Message.Msg,Handlers) THEN
      FOR Handler IN Handlers DO IF Assigned(Handler) AND (Message.Result=0) THEN Handler(Message);
    IF Message.Result=0 THEN INHERITED
  END;


END.

E incluya esta unidad como la última en el formulario en el que desea poder manejar múltiples manejadores para un mensaje, o manejar mensajes con un número de mensaje dependiente del tiempo de ejecución, entonces puede lograr esto fácilmente.

Úselo de la siguiente manera:

Cree una nueva aplicación VCL y coloque tres botones en el formulario, llamados RegisterBtn , UnregisterBtn y ExecBtn con los títulos apropiados. Asegúrese de que la propiedad "Habilitada" para UnregisterBtn y ExecBtn esté establecida en "FALSE" en el editor de propiedades y "TRUE" para RegisterBtn . Cree un controlador de mensajes de la siguiente manera en su formulario:

PROCEDURE TForm1.Handler(VAR MSG : TMessage);
  BEGIN
    ShowMessage('Handler!')
  END;

Y agregue la siguiente definición de variable a su formulario también:

Token : TForm.TToken;

(es decir.

private
  { Private declarations }
  Token       : TForm.TToken;
  PROCEDURE   Handler(VAR MSG : TMessage);

)

Luego cree controladores de clic para los tres y complételos de la siguiente manera:

PROCEDURE TForm1.RegisterBtnClick(Sender : TObject);
  BEGIN
    RegisterBtn.Enabled:=FALSE;
    UnregisterBtn.Enabled:=TRUE;
    ExecBtn.Enabled:=TRUE;
    Token:=AddHandler(RegisterWindowMessage('Ohhh'),Handler);
    ShowMessage('MessageNo: '+IntToHex(Token.MsgNo,4))
  END;

PROCEDURE TForm1.UnregisterBtnClick(Sender : TObject);
  BEGIN
    RemoveHandler(Token);
    ExecBtn.Enabled:=FALSE;
    UnregisterBtn.Enabled:=FALSE;
    RegisterBtn.Enabled:=TRUE
  END;

PROCEDURE TForm1.ExecBtnClick(Sender : TObject);
  BEGIN
    PostMessage(Handle,Token.MsgNo,0,0)
  END;

Ejecútelo y haga clic en el botón "Registrarse", "Cancelar registro" y "Exec" para probarlo.