Generar mensajes windows

[ElDuc]

Muchas gracias Neftali,

De lo que he podido leer en los posts que tan amablemente me has pasado, he deducido que una buena opción es utilizar el procedimeinto PostMessage(Handle, MiMessage,0 ,0);

Esto no me funciona y no sé porque, es decir se manda el mensaje correctamente, pero no se dispara el evento que lo intercepta (o debería interceptarlo.

Te pongo el código:

Código Delphi [-]
Uses
     Messages, Windows;
 
Type
     MY_MESSAGE=WM_User+101M
 
     TMyClass=Class(TPersistent)
     Private
     Procedure MYMESAGE(var Msg: TMessage); message MY_NMESSAGE;
     Public
     Procedure MandaMensaje;
... ...
Procedure TMyClass.MYMESAGE(var Msg: TMessage);
Begin
// =====> Ha llegado
End;
 
Procedure TMyClass.MandaMensaje;
Begin
PostMessage(Application.Handle, MY_MESSAGE,0 ,0);
End;

Como te he comentado, el Post se realiza sin ningún error, pero no se alcanza // =====> Ha llegado.

No sé si el error puede estar en el handle que le paso al psot, ya que al no disponer de uno, le paso el de la aplicación.

Por favor, si pueden, me dicen lo que estoy haciendo mal.

Saludos,

[Neftali [Germán.Estévez]]

Basta con que a la hora de lanzarlo cambies:

Código Delphi [-]
PostMessage(Application.Handle, MY_MESSAGE,0 ,0);

por esto:

Código Delphi [-]
PostMessage(Self.Handle, MY_MESSAGE,0 ,0);

Para pasar como parámetro el handle del formulario.