Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
This can not be done! I give up :(
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Database:
Visual FoxPro
Divers
Thread ID:
01027858
Message ID:
01027882
Vues:
18
I don't see it with your code either. However, there is a lot going on in our framework. Try to add few objects to each of the page and in Page Activate set focus to the first object. See, if it still doesn't fire.

Also add page.refresh in some of the object's UiEnable method.

>I must be doing something wrong then, I do not see that.
>
>
>PUBLIC oform1
>
>oform1=NEWOBJECT("form1")
>oform1.Show
>RETURN
>
>
>	**************************************************
>*-- Form:         form1 (c:\form1.scx)
>*-- ParentClass:  form
>*-- BaseClass:    form
>*-- Time Stamp:   06/30/05 01:40:03 PM
>*
>DEFINE CLASS form1 AS form
>
>
>	Top = 0
>	Left = 0
>	Height = 188
>	Width = 380
>	DoCreate = .T.
>	Caption = "Form1"
>	_memberdata = ""
>	Name = "Form1"
>
>
>	ADD OBJECT pageframe1 AS pageframe WITH ;
>		ErasePage = .T., ;
>		PageCount = 2, ;
>		Top = 13, ;
>		Left = 3, ;
>		Width = 374, ;
>		Height = 169, ;
>		Name = "Pageframe1", ;
>		Page1.Caption = "Page1", ;
>		Page1.PageOrder = 2, ;
>		Page1.Name = "Page1", ;
>		Page2.Caption = "Page2", ;
>		Page2.PageOrder = 1, ;
>		Page2.Name = "Page2"
>
>
>	PROCEDURE pageframe1.Page1.Deactivate
>		wait window 'Page 1: Deactivate' timeout 1
>	ENDPROC
>
>
>	PROCEDURE pageframe1.Page1.Activate
>		wait window 'Page 1: Activate' timeout 1
>	ENDPROC
>
>
>	PROCEDURE pageframe1.Page2.Deactivate
>		wait window 'Page 2: Deactivate' timeout 1
>	ENDPROC
>
>
>	PROCEDURE pageframe1.Page2.Activate
>		wait window 'Page 2: Activate' timeout 1
>	ENDPROC
>
>
>ENDDEFINE
>*
>*-- EndDefine: form1
>**************************************************
>
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform