Hola,
Yo pretendo conseguir la siguiente funcionalidad de algunas teclas, para
ello tengo asignado el evento OnKeyDown de Browse
VK_INSERT -> inserta una linea -> funcionando sin hacer nada
CTRL+VK_INSERT -> Añadir una linea al browse ->Funcionando, perfecto
VK_RETURN -> Edita una celda -> funcionando sin hacer nada
CTRL+VK_RETURN -> Editar toda la linea -> no hay manera siempre edita
una sola celda.
He probado con CTRL+VK_F12 y ahi si que funciona, deduzco que la tecla
ENTER la captura antes el sistema.
METHOD BrwKeyDown( oSender, nKey, nFlags ) CLASS TForm
IF lGetKeyState( VK_CONTROL )
DO CASE
CASE nKey == VK_INSERT
oSender:Append()
CASE nKey == VK_F12
oSender:edit()
CASE nKey == VK_RETURN
oSender:edit()
ENDCASE
RETURN 0
ENDIF
RETURN Nil
Saludos. Miguel A. Torrellas
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Editar TdbBorowse
Editar TdbBorowse
Conseguido, mientras escribía mi anterior mensaje, se me ha ocurrido que
quizas lo adecuado era el evento OnKeyUp en lugar de OnKeyDown y
efectivamente ahora OK pleno.
Gracias.
Saludos. Miguel A. Torrellas
Miguel A. Torrellas escribió:
> Hola,
>
> Yo pretendo conseguir la siguiente funcionalidad de algunas teclas, para
> ello tengo asignado el evento OnKeyDown de Browse
>
> VK_INSERT -> inserta una linea -> funcionando sin hacer nada
> CTRL+VK_INSERT -> Añadir una linea al browse ->Funcionando, perfecto
> VK_RETURN -> Edita una celda -> funcionando sin hacer nada
> CTRL+VK_RETURN -> Editar toda la linea -> no hay manera siempre edita
> una sola celda.
>
> He probado con CTRL+VK_F12 y ahi si que funciona, deduzco que la tecla
> ENTER la captura antes el sistema.
>
> METHOD BrwKeyDown( oSender, nKey, nFlags ) CLASS TForm
>
> IF lGetKeyState( VK_CONTROL )
> DO CASE
> CASE nKey == VK_INSERT
> oSender:Append()
> CASE nKey == VK_F12
> oSender:edit()
> CASE nKey == VK_RETURN
> oSender:edit()
> ENDCASE
> RETURN 0
> ENDIF
>
> RETURN Nil
>
>
> Saludos. Miguel A. Torrellas
quizas lo adecuado era el evento OnKeyUp en lugar de OnKeyDown y
efectivamente ahora OK pleno.
Gracias.
Saludos. Miguel A. Torrellas
Miguel A. Torrellas escribió:
> Hola,
>
> Yo pretendo conseguir la siguiente funcionalidad de algunas teclas, para
> ello tengo asignado el evento OnKeyDown de Browse
>
> VK_INSERT -> inserta una linea -> funcionando sin hacer nada
> CTRL+VK_INSERT -> Añadir una linea al browse ->Funcionando, perfecto
> VK_RETURN -> Edita una celda -> funcionando sin hacer nada
> CTRL+VK_RETURN -> Editar toda la linea -> no hay manera siempre edita
> una sola celda.
>
> He probado con CTRL+VK_F12 y ahi si que funciona, deduzco que la tecla
> ENTER la captura antes el sistema.
>
> METHOD BrwKeyDown( oSender, nKey, nFlags ) CLASS TForm
>
> IF lGetKeyState( VK_CONTROL )
> DO CASE
> CASE nKey == VK_INSERT
> oSender:Append()
> CASE nKey == VK_F12
> oSender:edit()
> CASE nKey == VK_RETURN
> oSender:edit()
> ENDCASE
> RETURN 0
> ENDIF
>
> RETURN Nil
>
>
> Saludos. Miguel A. Torrellas