Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Tastrade's application class
Message
From
01/06/1997 08:19:36
Siu-Hung Lai
The Hong Kong University of Sci. & Tech.
Hong Kong, Hong Kong
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Tastrade's application class
Miscellaneous
Thread ID:
00034418
Message ID:
00034418
Views:
84
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
Next
Reply
Map
View

Click here to load this message in the networking platform