Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Subclassed Pageframes
Message
De
31/03/2004 13:20:14
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00891138
Message ID:
00891240
Vues:
22
Bug/Behaviour Activate occurs only for the first pageframe
when the form is Activated.
run this, Focus is into the GotFocus,
go into the Command window , and return into the form1
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


DEFINE CLASS form1 AS form


	Top = 0
	Left = 0
	Height = 250
	Width = 599
	DoCreate = .T.
	Caption = "Form1"
	AllowOutput = .F.
	Name = "Form1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 200, ;
		Left = 196, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Command1", ;
		Name = "Command1"


	ADD OBJECT pageframe1 AS pageframe WITH ;
		ErasePage = .T., ;
		PageCount = 2, ;
		Top = 11, ;
		Left = 9, ;
		Width = 241, ;
		Height = 169, ;
		Name = "Pageframe1", ;
		Page1.Caption = "Page1", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "Page2", ;
		Page2.Name = "Page2"


	ADD OBJECT form1.pageframe1.page1.text1 AS textbox WITH ;
		Height = 23, ;
		Left = 51, ;
		Top = 27, ;
		Width = 100, ;
		Name = "Text1"


	ADD OBJECT pageframe2 AS pageframe WITH ;
		ErasePage = .T., ;
		PageCount = 2, ;
		ActivePage = 2, ;
		Top = 13, ;
		Left = 259, ;
		Width = 272, ;
		Height = 169, ;
		Name = "Pageframe2", ;
		Page1.Caption = "Page1", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "Page2", ;
		Page2.Name = "Page2"


	ADD OBJECT form1.pageframe2.page1.text1 AS textbox WITH ;
		Height = 23, ;
		Left = 51, ;
		Top = 27, ;
		Width = 100, ;
		Name = "Text1"


	PROCEDURE pageframe1.Page1.Activate
		? "page activate",this.name
	ENDPROC


	PROCEDURE pageframe2.Page1.Activate
		? "page activate",this.name
	ENDPROC


ENDDEFINE
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform