Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problem cancelling form in init
Message
 
 
À
07/12/2001 08:29:48
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00591072
Message ID:
00591089
Vues:
25
Make form modal and you wouldn't need READ EVENTS.

>I have run into a problem that I have never encountered before. Typically, if I want to cancel the instantiation of a form for whatever reason (based on conditions), I check for a condition in the form's init method, then if it fails, clear events (if it is a single form app) and return .f.. However, for some reason in my current small single form app, when I cancel events and return .f., the form closes, but I am returned to the vfp screen with no form. If I turn on the debugger, I am sitting at the read events command just below where I called my form, even if I issued a clear events before the return .f. in the form. Any ideas? I must have overlooked something here somehow.
>
>Code in main.prg calling form:
>
>*--Run Main Form
>DO FORM Rebuildall WITH llautorun, llforcedbf, llforceindex, llresult, llpolcall
>READ EVENTS
>IF llresult
> *--Return to calling program ok
> RETURN .T.
>ELSE
> *--Return to calling program with an error
> RETURN .F.
>ENDIF
>
>*--Code in form's init method
>*--Create the archive directory
>IF !DIRECTORY(thisform.bakdir)
> MKDIR (thisform.bakdir)
>ENDIF
>*--Verify its creation
>IF !DIRECTORY(thisform.bakdir)
> CLEAR EVENTS
> llresult=.f.
> RETURN llresult
>ENDIF
>
>
>Thanks for your help!
>Tracy
--sb--
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform