Como puedo ahorrarme escribir esto?

Copia el siguiente trozo de texto en un archivo .PRG

PUBLIC oGrid
oGrid = IIF(ASELOBJ(aO) # 1, .NULL., aO[1])
IF NOT ISNULL(oGrid)
FOR EACH loCol IN oGrid.COLUMNS
loCol.text1.WRITEMETHOD("dblclick", "do form miformulario")
loCol.text1.WRITEMETHOD("keypress", "do form miformulario")
ENDFOR
ENDIF

1. Abre el formulario y selecciona el control Grid.
2. Dejando el grid seleccionado pasa al editor de programas y ejecuta el
archivo .PRG con el código de arriba.
3. Vuelve al formulario y mira los métodos DblClick y KeyPress :-|

(esto funcionará si los TextBox se llaman Text1)

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"ISRAEL ARTURO ORTIZ CASTAÑON" escribió en el mensaje
news:%

Tengo un Grid en el tengo 128 columnas y cada column tiene su text ,

dentro

del text hay el metodo dblclick y keypress, dentro de estos metodos tecleo
esto: do form miformulario, como puedo ahorrarme escribir 256 veces do

form

miformulario?

gracias por su amable atención