Information générale
Catégorie:
Codage, syntaxe et commandes
>Hi guys,
>Do you ear about a bug or something else that when you did a clear events; the program return to execute the read events command instead of the next line
>
>EX
>
>MAIN.PRG
>
>App = createobject("application")
>READ EVENTS
>...
>
>in the menu QUIT
>IF App.Release()
> CLEAR EVENTS
>ENDIF
Check the TasTrade sample for one way of doing things.
What I do:
1. "READ EVENTS" is in oMyApp.Do()
2. In the Exit/Quit option of the menu:
if oMyApp.CleanUp()
Release oMyApp
endif
3. In oMyApp.CleanUp() I call QueryUnload for all forms. If all QueryUnload methods return .t.:
CLOSE DATA ALL
CLEAR EVENTS
and return .t.
It works fine. I never had your error since I'm using it (10 months).
Vlad
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement