Puntero procedimiento a evento
Hola Amigos:
¿cómo puedo convertir el procedimiento procedure AppMessage(var Msg: tagMSG; var Handled: Boolean); a Evento Application.OnMessage?. Cuando lo asigno de esta manera, el compilador me genera el siguiente error: Application.OnMessage := AppMesage; [Pascal Error] consumos_main.pas(178): E2009 Incompatible types: 'method pointer and regular procedure' Muchas Gracias, JL |
El Msg no debería ser de tipo TMsg en lugar de tagMSG?
|
El error te lo dice todo:
Cita:
Por ejemplo:
|
Hola:
Pero si el procedure esta en otro unit y no pertenece a ninguna clase como lo convierto. Saludos, JL |
No entiendo tu empeño, es como si quisieras pasarle un texto a una imagen, si ya lo dice el mensaje, son incompatibles :D
¿Que te cuesta meter el procedure dentro de una clase? Por ejemplo:
|
a ver, yo creo que el pollo es más pequeño, no hay que engordarlo.
Usa un componente ApplicationsEvents en la ventana que quieras, en el inspector de objetos da doble clic al evento OnMessage y dentro de él llamas a tu rutina.
Saludos |
La franja horaria es GMT +2. Ahora son las 04:50:30. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi