Me compila perfectamente, a la hora de ejecucion no entra en el manejador.
He seguido investigando y en la unidad donde se definen los mensajes el CM_FocusChanged esta comentado. No lo usa Delphi 8.
He visto otra posible salida que es el siguiente: la variable screen tiene una propiedad:
property OnActiveControlCahnge : TNotifyEvent;
Creo que solo haria falta un manejador para ese evento, pero no he sido capaz de hacerlo... todavia.
Gracias por tu colaboracion.
__________________
J. Adolfo Núńez
|