Clear All
If !Used("Test")
	Create Cursor test (cName1 c( 16 ), cName2 c( 16 ))
	For m.i= 1  To  10 
		Insert Into test (cName1, cName2) Values (Sys( 2015 ),Sys( 2015 ))
	Next
	Go Top
Endif

With Createobject("MyForm")
	.Show( 1 )
EndWith

Define Class MyForm As Form
	KeyPreview=.T.
	Add Object MyGrid As Grid
	Procedure KeyPress
		Lparameters nKeyCode, nShiftAltCtrl
		If nKeyCode =  13  && Отлов клавиши Enter
			With Thisform.ActiveControl
				If .Name="MYGRID" && Было нажатие Enter в гриде
					Wait Window "Номер колонки - "+Transform(.ActiveColumn)+Chr( 13 )+;
						"Имя колонки - "+.Columns(.ActiveColumn).Name
				Endif
			Endwith
		Endif
Enddefine