Observed:
put a container inside a grid cell,
- if the container cannot receive the focus,
in every case (VFP doesn't respect enabled,visible,none member)
the event Container.lostfocus is called;

- if the container can receive the focus,
it is called the event Form.Gotfocus.

For us this is a critical event
because we have only based cells on a businessValue container class.

CLEAR

PUBLIC oform1

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

DEFINE CLASS form1 AS form

	allowoutput = .F.
	Height = 417
	Width = 605
	Autocenter = .T.

	ADD OBJECT GR AS myGrid WITH ;
		Height = 368, ;
		Left = 4, ;
		Top = 4, ;
		Width = 554
		
	PROCEDURE Load
		CREATE CURSOR bugfocus (f1 i, f2 i)
		APPEND BLANK
		APPEND BLANK
		APPEND BLANK
		LOCATE
	ENDPROC

	PROCEDURE GotFocus
		? PROGRAM()
	ENDPROC

ENDDEFINE

DEFINE CLASS myGrid AS Grid
		RowHeight = 100

	ADD OBJECT C1 AS myColumn WITH Width = 224

	ADD OBJECT C2 AS myColumn WITH Width = 224 ,cc.Enabled = .F.,cc.Visible = .F.

	PROCEDURE C1.CC.Init
		THIS.AddObject("text1","textbox")
		this.text1.visible= .t.
	ENDPROC
	
ENDDEFINE

DEFINE CLASS myColumn AS Column

	ADD OBJECT HEADTEXT	AS HEADER
	
	ADD OBJECT cc AS Container
	
	PROCEDURE cc.GotFocus
		? PROGRAM()
	ENDPROC	

	PROCEDURE cc.LostFocus
		? PROGRAM()
	ENDPROC	
		
ENDDEFINE