Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Default Wait Window Position
Message
De
21/01/2004 16:17:27
 
 
À
21/01/2004 15:26:23
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00867546
Message ID:
00869232
Vues:
29
I see a difference between VFP6 and VFP8. In 6, the WAIT WINDOW is in the main form, while in 8, the WAIT WINDOW is in the second form.

Is that what you mean?



>Fabio,
>
>The code below produces the anomaly that I see. It seems to happen when a child form of a top-level form is modal:
>
>
>PUBLIC oform1, oform2
>
>oform1=NEWOBJECT("form1")
>
>oform1.Show
>RETURN
>
>DEFINE CLASS form1 AS form
>
>	ShowWindow = 2	&& As top-level form
>	WindowType = 0	&& Modeless
>
>	AutoCenter = .T.
>	DoCreate = .T.
>	Caption = "Form1"
>	Name = "Form1"
>	height = 480
>	width = 640
>
>	PROCEDURE Click
>		WAIT WINDOW ;
>			"Form1: ShowWindow = " + ;
>			ALLTRIM(STR(this.ShowWindow)) + ;
>			" WindowType = " + ;
>			ALLTRIM(STR(this.WindowType)) TIMEOUT 3
>
>		oform2=NEWOBJECT("form2")
>		oform2.Show
>		THISFORM.Release()
>	ENDPROC
>
>ENDDEFINE
>
>DEFINE CLASS form2 AS form
>
>	ShowWindow = 1	&& In top-level form
>	WindowType = 1	&& Modal
>
>	AutoCenter = .T.
>	DoCreate = .T.
>	Caption = "Form2"
>	Name = "Form2"
>	height = 480*.5
>	width = 600*.5
>
>	PROCEDURE Click
>		WAIT WINDOW ;
>			"Form2: ShowWindow = " + ;
>			ALLTRIM(STR(this.ShowWindow)) + ;
>			" WindowType = " + ;
>			ALLTRIM(STR(this.WindowType)) TIMEOUT 3
>
>		THISFORM.Release()
>	ENDPROC
>
>ENDDEFINE
>
>
>What do you think?
>
>Thanks!
Fred
Microsoft Visual FoxPro MVP

foxcentral.net
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform