Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Tastrade's application class
Message
De
01/06/1997 08:19:36
Siu-Hung Lai
The Hong Kong University of Sci. & Tech.
Hong Kong, Hong Kong
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Tastrade's application class
Divers
Thread ID:
00034418
Message ID:
00034418
Vues:
81
The APPLICATION class of sample Tastrade cantains the following code in Cleanup() method

*******************************
LOCAL lnForm, lnFormToClose
LOCAL loForm

THIS.lQuitting = .T.
FOR EACH loForm IN application.Forms
IF TYPE("loForm") == "O" AND loForm.Baseclass == "Form"
IF !loForm.QueryUnload()
RETURN .F.
ENDIF
loForm.Release()
ENDIF
ENDFOR
RETURN .T.
********************************
What I don't understand is "application.Forms". Since it uses "FOR EACH...", .Forms should be an array property of application class. But I can't find it from the property sheet. Would someone please tell me where does it come from.

Thanks in advance
S.H.
Siu-hung Lai
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform