Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Minimizar e Maximizar
Message
From
11/11/2003 14:04:12
Erick Miranda
Formata Data Business - Grupo Linx
Contagem, Brazil
 
 
To
11/11/2003 12:10:03
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00848626
Message ID:
00848838
Views:
17
This message has been marked as the solution to the initial question of the thread.
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 OSCR

Depois 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)  && Desvincula o método Resize
      ELSE
         * Escreva aqui o seu tratamento para a mudança de tamanho
         MESSAGEBOX(_screen.WindowState)
      ENDIF
   RETURN
ENDDEFINE
Até mais.
Erick
Força Sempre!
Strength Always!
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform