Page 1 of 1
Asignarle teclas a un control Get
Posted: Mon Jun 04, 2012 12:51 am
by horacio
Necesitaria asignarle una tecla a un control Get con el método bKeyDown(), pero al hacerlo pierde las fucionalidades de las teclas de cursor. Hay alguna manera de asignarle una tecla a un get y que no pierda las funcionalidades de las demás o tengo que hacerlo desde el código de la clase ???. Muchas gracias.
Re: Asignarle teclas a un control Get
Posted: Mon Jun 04, 2012 9:46 am
by Ariel
hola,
oMiGet:bGotFocus:= { !nkey,nFlag| if(nKey==VK_tuTecla, mifuncion(),) }
Salu2.
Re: Asignarle teclas a un control Get
Posted: Mon Jun 04, 2012 11:23 am
by horacio
Ariel, gracias por responder pero tu código me da error, Este es el log
Code: Select all | Expand
Aplicación
===========
Path y nombre: C:\colegio_b\T-REX.EXE (32 bits)
Tamaño: 4,264,960 bytes
Versión del compilador: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 9421)
Versión librería GUI: FWHX 12.04
versión de Windows: 5.1, Build 2600 Service Pack 2
Tiempo de ejecución: 0 hours 0 mins 28 secs
Error occurrido el: 05/06/2012, 08:18:10
Descripci¢n del error: Error BASE/1070 Error de argumento: ==
Args:
[ 1] = O TGET
[ 2] = N 120
Re: Asignarle teclas a un control Get
Posted: Mon Jun 04, 2012 12:07 pm
by karinha
Muestra:
mifuncion()
Porfa.
Sds
Re: Asignarle teclas a un control Get
Posted: Mon Jun 04, 2012 12:12 pm
by horacio
Karinha, aqui el código de mifuncion()
Code: Select all | Expand
Function MiFuncion()
oBrwCheques : Enable()
oBrwCheques : SetFocus()
AddRow()
::nContado := 0
oGet[ 1 ] : Refresh()
oGet[ 1 ] : Disable()
oBrwCheques : aArrayData[ Len( oBrwCheques : aArrayData ) ][ 5 ] := nTotalSeleccionado
oBrwCheques : Refresh()
Return 0
Re: Asignarle teclas a un control Get
Posted: Mon Jun 04, 2012 1:07 pm
by karinha
Intente:
oMiGet:bGotFocus :={ || IF( nKey == VK_RETURN, MiFuncion( oMiGet ) ) }
ó
oMiGet:bGotFocus :={ || IF( nKey == VK_RETURN, MiFuncion( oMiGet ), ) }
Sds
Re: Asignarle teclas a un control Get
Posted: Mon Jun 04, 2012 1:32 pm
by horacio
Karinha, he probado tu sugerencia pero me dá error, Dice que la variable nKey no existe. ¿ Seguro que se puede asignar una tecla con el método bGotFocus ??? Me parece que este método no tiene como parámetros nKey. La verdad que este problema no me permite seguir avanzando, con la versión FWH 7.12 esto no sucedia. Muchas gracias por responder.
Re: Asignarle teclas a un control Get
Posted: Mon Jun 04, 2012 1:45 pm
by jbrita
prueba asi
REDEFINE Get aGets[1] VAR vale1 Id 101 Of oDlg PICTURE "@K99999999" UPDATE
aGets[1]:bKeyDown:={|nKey|If(nkey== VK_RETURN,Buscar_Vale(oBrw1,aDatos,aCheques,TotVal,oDlg,@vale1,aGets,forpago,tipodocto), ) }
STATIC FUNC Buscar_Vale(oBrw,aDatos,aCheques,TotVal,oDlg,vale1,aGets,forpago,tipodocto)
*------------------------------------------------------------------------------------
Return(.T.)
saludos
Re: Asignarle teclas a un control Get
Posted: Mon Jun 04, 2012 2:44 pm
by horacio
Muchisimas gracias jbrita, funcionó perfectamente. Saludos