Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Catch 22
Message
 
À
20/05/1999 16:15:13
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Divers
Thread ID:
00221090
Message ID:
00221161
Vues:
12
Erik,
I deal with this in my app by passing the current form as
a reference to my configuration form.

IF lSetupMode
ThisForm.CancelMode = .F.
=CREATEOBJECT('SETUPFORM',THISFORM)
READ EVENTS
IF THISFORM.CancelMode
QUIT
ENDIF
ENDIF

SETUPFORM.INIT()
Parameters oParentObject
ThisForm.ParentObject = oParentObject

* Cancel by:
ThisForm.ParentObject.CancelMode = .T.
CLEAR EVENTS
RETURN .F.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform