ThisForm.txtOp.SetFocus

PUBLIC o

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

DEFINE CLASS gridcommand AS form


	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT Text1 AS Textbox WITH ;
		Height = 30, ;
		Left = 12, ;
		Top = 12, ;
		Width = 349, ;
		Name = "text1"

	ADD OBJECT Text2 AS Textbox WITH ;
		Height = 30, ;
		Left = 12, ;
		Top = 52, ;
		Width = 349, ;
		Name = "Text2"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 192, ;
		Left = 12, ;
		Height = 37, ;
		Width = 349, ;
		Caption = "Жми", ;
		Name = "Command1"


PROCEDURE command1.click
	WITH thisform
		.text2.setfocus()
		.text2.name = 'Text_'
		.text1.name = 'Text2'
		.text_.name = 'Text1'
	ENDWITH 	
ENDPROC 

ENDDEFINE