Falla en Application.OnMessage
 

Hola amigos,

tengo el siguiente problema:

Delphi no ejecuta el manejador para el evento Application.OnMessage.

El código que tengo es el siguente:

Código Delphi [-]
     // Declaración.
     procedure AnalizaMensajes(var Msg: TMSg; Var Handled:Boolean);
  
 procedure Tform1.FormCreate(Sender: TObject);
 begin
   Application.OnMessage := AnalizaMensajes;
 end;
  
 procedure Tform1.AnalizaMensajes(var Msg: TMSg; Var Handled:Boolean);
 begin
     if Msg.wParam = VK_RETURN then
        Msg.wParam := VK_TAB;
 end;

Por favor ayudenme, esta código me funcionaba, y de un momento a otro dejo de funcionar.


Gracias

Mauricio Briñes.

No funciona el enter
 

Hola

Tengo exactamente el mismo problema.

He probado muchas alternativas y no ha sido posible corregirla.

De antemano muchas gracias a quien pueda colaborarnos.

En el código que describen no se verifica que el mensaje sea el correcto. Por Application.OnMessage pasa una multitud de mensajes, no sólo las pulsaciones del teclado, así que debieran modificarlo un poco:

Código Delphi [-]
if (Msg.message = WM_KEYUP) and (Msg.wParam = VK_RETURN) then
  Msg.wParam := VK_TAB;

No sé si con esto ya les funcione (a mi me funciona sin problemas) pero al menos hay que empezar por cuidar estos detalles.

// Saludos

HOla Roman, muchas gracias, pero es que el programa no ejecuta ni una sola linea del procedimiento AnalizaMensajes, es como si la aplicación no estuviera recibiendo mensajes. Cuando lo depuro, pasa por Application.OnMessage:=AnalizaMensages, pero nunca entra al procedimiento, es como ei el mensaje no entrara a la cola de mensajes.

Gracias, espero su valiosa colaboración.

¿Qué pasa si pones un punto de corte en la primera línea del evento?
¿Cuando compilas aparece el indicador azul en dicha línea?

// Saludos

Hola Roman, cuando compilo si aparece el indicador azul en las lineas de definición del procedimiento.

Este código lo tengo en una plantilla de fomulario de la cual heredé la forma principal del proyecto y me funcionaba perfecto, pero de un momento a otro dejo de funcionar. Al crear un nuevo proyecto o ejecutar proyectos con la misma plantilla si me ejecuta el código. Sera algun problema con el ejecutable o proyecto que estoy trabajando???


gracias.