relaciones entre grids...y Lastkey
Publicado por upliftmofopartyplan (265 intervenciones) el 02/05/2003 16:32:14
Hola!
antes que nada les comento que este tema viene desde antes.
tengo dos grids relacionadas y funcionan bien hasta que incluyo un código con LASTKEY().
lo que intento hacer es que el form se maneje sólo con las teclas de flechas, sin mouse ni nada de eso.
al incluir el código, el grid sólo me permite mover entre los dos primeros registros.
el from tiene la propiedad KEYPREVIEW en .T., y en el evento keypress del form tengo algo así:
LPARAMETERS nKeyCode, nShiftAltCtrl
if lastkey()=4 then
thisform.grid2.visible=.T.
thisform.grid2.setfocus
endif
if lastkey()=19 then
thisform.grid2.visible=.F.
thisform.grid1.setfocus
endif
thisform.refresh
el código es un poco mas largo, pero lo que hace es que cuando presiono la flecha derecha paso al sig. grid, y al presionar la flecha izq. vualvo a la anterior.
tambien puse el keypreview en .F., y coloqué el código en cada TEXT1 de cada grid y hace lo mismo.
espero su ayuda.
saludos.
Uplift.
antes que nada les comento que este tema viene desde antes.
tengo dos grids relacionadas y funcionan bien hasta que incluyo un código con LASTKEY().
lo que intento hacer es que el form se maneje sólo con las teclas de flechas, sin mouse ni nada de eso.
al incluir el código, el grid sólo me permite mover entre los dos primeros registros.
el from tiene la propiedad KEYPREVIEW en .T., y en el evento keypress del form tengo algo así:
LPARAMETERS nKeyCode, nShiftAltCtrl
if lastkey()=4 then
thisform.grid2.visible=.T.
thisform.grid2.setfocus
endif
if lastkey()=19 then
thisform.grid2.visible=.F.
thisform.grid1.setfocus
endif
thisform.refresh
el código es un poco mas largo, pero lo que hace es que cuando presiono la flecha derecha paso al sig. grid, y al presionar la flecha izq. vualvo a la anterior.
tambien puse el keypreview en .F., y coloqué el código en cada TEXT1 de cada grid y hace lo mismo.
espero su ayuda.
saludos.
Uplift.
Valora esta pregunta


0