Procedure Container.GetFocus()

this.TextBox.SetFocus()

endproc

o = CREATEOBJECT('MyForm')
o.show( 1 )


DEFINE CLASS MyForm as Form 
PROCEDURE init
CREATE CURSOR test (f1 i, f2 c( 10 ))

INSERT INTO test VALUES ( 1 , 'First')
INSERT INTO test VALUES ( 1 , 'Second')
GO TOP IN test 

this.AddObject('grd1','grid')

WITH this.grd1
	.visible = .t.
	.columncount =  2 
	.Highlight = .t.
	.column2.addobject('MyCon1','MyCon')
	.column2.currentcontrol = 'MyCon1'
	.column2.selectonentry = .t.
	.column2.controlsource = 'test.f2'
	.column2.MyCon1.visible = .t.
	.column2.sparse = .f.

ENDWITH 	

ENDPROC 
ENDDEFINE 

DEFINE CLASS MyCon as Container
**DEFINE CLASS MyCon as Control
ADD Object 'text1' as 'textbox1'  
ADD Object 'Command1' as 'commandbutton'  
PROCEDURE init
WITH this.text1 
	.visible = .t.
	.top =  0 
	.left =  0 
	.width =  60 
	.height =  25 
	.selectonentry = .t.
	.controlsource = 'test.f2'
ENDWITH 
WITH this.Command1 
	.visible = .t.
	.top =  0 
	.left =  60 
	.width =  30 
	.height =  30 
ENDWITH 
ENDPROC 

PROCEDURE gotfocus
	this.text1.setfocus()
ENDPROC 

ENDDEFINE 
DEFINE CLASS textbox1 as TextBox 
PROCEDURE gotfocus
	MOUSE DBLCLICK AT  25  ,  100  PIXELS	WINDOW (thisform.name) LEFT
ENDPROC
ENDDEFINE