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

:O

Gracias Luis Maria
Me servira a mi tambien muchisimo !!!
Axel Olivares




"Luis María Guayán" escribió en el mensaje
news:ejGD#

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

Aunque lo mejor es crear todo ésto mediante una clase genérica, imagínense
si se requiere el Grid en otras partes (otros formularios). En la revista
www.fpress.com se encuentra un Grid Buscador que se adapta a lo que
necesitas. La clase consta de :
1. Grid
2. Textbox, el cual en su Método KeyPress() atrapa la tecla pulsada, del
método DblClick().
3. Formulario, en donde se inserta el Grid (punto 1). En el Init de éste
formulario se hace algo así:
laTituloColum : Arreglo de títulos para las columnas del grid
mitext : Es el TextBox (del punto 2)


if amembers(laTemp, thisform.miGrid, 2) = 0
return
endif
contador = 0
for each oColumn in laTemp
with thisform.miGrid.&oColumn
contador = contador + 1
lcVarUna = laTituloColum(contador)
.header1.caption = lcVarUna
.header1.FontBold = .T.
.header1.ForeColor = RGB(255,255,255)
.header1.BackColor = RGB(0,0,64)
.addobject('NewText', 'miText')
.removeobject('Text1')
.NewText.visible = .t.
.sparse = .f.
.currentcontrol = 'NewText'
.NewText.lcAccionEjecutar = 'THISFORM.Release()'
.NewText.backcolor = .backcolor
endwith
endfor


Claudio T. G.
Oaxaca, México

"Axel Olivares" escribió en el mensaje
news:eoSK9M%

:O

Gracias Luis Maria
Me servira a mi tambien muchisimo !!!
Axel Olivares




"Luis María Guayán" escribió en el mensaje
news:ejGD#
> 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