como puedo introducir codigo en un metodo de un grid en tiempo de

If Amembers(laTemp,ThisForm.Examinar1,2)=0
Return
Endif

For each oColumn in laTemp
With ThisForm.Examinar1.&oColumn
.Movable = .F.
.Header1.Caption = 'Codigo Externo'
.Header1.FontSize = 8
.ControlSource = 'Codigoext'
.Width = 120
.ReadOnly = .F.
.Addobject('ObjetoCB1','TextoCB1')
.RemoveObject('Text1')
.ObjetoCB1.Visible = .T.
.Sparse = .F.
.Currentcontrol = 'ObjetoCB1'
.ObjetoCB1.BACKCOLOR = .BACKCOLOR
Endwith
Endfor

El "Examinar1" es una clase Grid.

En donde "TextoCB1" en una clase Texbox donde tu puedes poner tu codigo
dentro del evento keypress.

Espero que te sea util.

Net.

"Santo76" escribió en el mensaje
news:
Mostrar la cita

Hace ya un tiempo ize esta pregunta en el foro, pero la resupesta que
obtuve
no me funciono o no lo supe hacer bien,

Hola, mi preguta es como puedo introducir codigo en un metodo de un grid?

Por ejemplo.
Si en tiempo de diseño edito el Grid, voy al procedimiento Keypress y le
pongo este codigo:
IF nKeycode = 13
MESSAGEBOX('Hola')
ENDIF
Cuando estoy en el grid y le doy a intro no hace nada, no sale ningun
mensaje; supongo que es porque luego, en tiempo de ejecucion relleno el
grid
con un cursor, y en los metodos keypress de las celdas no hay codigo.

Como puedo introducir el codigo en dichas celdas en tiempo de ejecucion?