Engancharse a los Eventos de Un Objeto Cualquiera

Este código permite por ejemplo ejecutar código en el evento Moved del _Screen y en el evento Resize... ... también permite "Engancharse" cualquier otro objeto de VFP, siempre y cuando sea nativo de Visual FoxPro. Al querer colgarme al evento Activate del _Screen, a veces da Error.

Para colgarse a un cuadro de texto podemos definir

OBJETO = 'THISFORM.TEXTO1'

Y podríamos sobreescribir el evento Valid.

OBJETO = '_SCREEN'
_SCREEN.ADDOBJECT('HOOK_1', '_GANCHO')

DEFINE CLASS _GANCHO AS CUSTOM
 OBJEVALUADO = EVAL(OBJETO)

 PROCEDURE OBJEVALUADO.MOVED
  IF THIS.WINDOWSTATE = 0
   IF (THIS.LEFT < 0) OR (THIS.TOP < 0)
    THIS.AUTOCENTER=.T.
   ENDIF
  ENDIF  
 ENDPROC
 
 PROCEDURE OBJEVALUADO.RESIZE
  ACTIVATE SCREEN
  IF THIS.WINDOWSTATE = 1
   THIS.CAPTION = 'Minimizado'
  ENDIF
  IF THIS.WINDOWSTATE = 2
   THIS.CAPTION = 'Microsoft Visual FoxPro'
  ENDIF
  IF THIS.WINDOWSTATE = 0
   THIS.CAPTION = 'Normal'
   THIS.AUTOCENTER = .T.
  ENDIF
 ENDPROC

ENDDEFINE

Jorge Mota