Olá Edson!
>>No help do VFP 8 tem o exemplo, acho que ele pode resolver o seu problema [dê uma olhada na função BindEvent (como mencionado pelo Fernando)]. Abaixo o exemplo citado (não cheguei a fazer teste):
>
>Este exemplo funciona no VFP7, mas, no VFP8 esta apresentando o seguinte erro:
unknown member OSCRDepois irei fazer mais testes para ver se descubro o porquê do erro mencionado. Fiz um teste com a função
BindEvent() e acho que deve resolver o seu problema, faça uns testes aí (adaptei um exemplo do help):
PUBLIC oHandler
oHandler=NEWOBJECT("myhandler")
WAIT WINDOW "Para desvincular os métodos pressione [ESC] a qualquer momento."
BINDEVENT(_SCREEN,"Resize",oHandler,"myresize")
DEFINE CLASS myhandler AS Session
PROCEDURE myresize
IF LASTKEY() = 27 THEN
UNBINDEVENT(THIS)
ELSE
MESSAGEBOX(_screen.WindowState)
ENDIF
RETURN
ENDDEFINE
Até mais.
Erick
Força Sempre!
Strength Always!