<snip>

CIAO
è ancora peggio,perchè spara degli UIenabled(.F.),
e questi non li puoi evitare

HI
it is worse still, because it shoots some UIenabled(.F.)
and these them you cannot avoid

* VFP9SP1b1

Local oForm
Activate Screen
clear
oForm = CreateObject('MyForm')
oForm.Show(1)
Return

Define Class MyForm As Form
	Add Object PF As MyPageFrame
	Autocenter = .T. && Only for read the background screen

	Function Init()
		?  PROGRAM()
	ENDFUNC
	
	FUNCTION PF.Init()
		?  PROGRAM()
		? "*** attach MyCnt to Page3"
		This.Page3.AddObject('CntGrid', 'MyCnt') && This will fire Uienble in the text of Mycnt
		? "*** attach MyCnt to Page5"
		This.Page5.AddObject('CntGrid', 'MyCnt') && This will fire Uienble in the text of Mycnt And 
	                                             && in The text of "cnt" that yet exists in class MyPage (Page5)
	EndFunc
EndDefine

Define Class MyPage As Page
	Add Object cnt As Mycnt
	
ENDDEFINE

Define Class MyPageFrame As PageFrame
	Add Object Page1 As Page
	Add Object Page2 As Page
	Add Object Page3 As Page
	
	Add Object Page4 As MyPage && Page4 fire UIENABLED with .F. BUG

	Add Object Page5 As MyPage && Page4 fire UIENABLED with .F. BUG

EndDef

Define Class MyCnt As container
	ADD Object Text As MyText
	Visible = .T.  && Deleting this line the uienable **** (.T.) **** don't fire during the init of pageframe

	FUNCTION INIT
		?  PROGRAM()
EndDef

Define Class MyText As TextBox

	Function UiEnable(lEnable)
		? PROGRAM()+'('+TRANSFORM(lEnable)+')'
	ENDFUNC
	
ENDDEFINE