Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Activate form if it is opened before
Message
De
06/09/2003 04:43:16
 
 
À
05/09/2003 17:54:04
Tom Johnson
Plymouth Rock Technology, Inc.
Plymouth, Massachusetts, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Divers
Thread ID:
00825696
Message ID:
00826719
Vues:
31
Hi Tom,

on my test (VFP6/7/8), RETURN .F. stop form loading.

It is documented on Help:
Load Event
...
To prevent a form from being created, return false (.F.) from the Load event; the Destroy ( my add: and Unload ) event(s) will not be executed.
PUBLIC o
o = CREATEOBJECT('_Form')
=VARTYPE(m.o)='O' AND o.Show()

DEFINE CLASS _Form AS Form
	allowOutput = .F.
	AutoCenter = .T.
	Height = 140
	Width = 280

	ADD OBJECT eb1 AS Editbox WITH ;
	  Top = 5, ;
	  Left = 10, ;
	  Height = 21, ;
	  ScrollBars = 0,;
	  AddLineFeeds=.F.

	ADD OBJECT eb2 AS Editbox WITH ;
	  Top = 45, ;
	  Left = 10, ;
	  Height = 42, ;
	  ScrollBars = 0,;
	  AddLineFeeds=.F.

	 PROCEDURE Load
	   RETURN .F.
	 ENDPROC
ENDDEFINE
Fabio
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform