Asignarle teclas a un control Get

[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.

[Ariel]

hola,

oMiGet:bGotFocus:= { !nkey,nFlag| if(nKey==VK_tuTecla, mifuncion(),) }

Salu2.

[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

 

[karinha]

Muestra:

mifuncion()

Porfa.

Sds

[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
 

[karinha]

Intente:

oMiGet:bGotFocus :={ || IF( nKey == VK_RETURN, MiFuncion( oMiGet ) ) }

ó

oMiGet:bGotFocus :={ || IF( nKey == VK_RETURN, MiFuncion( oMiGet ), ) }

Sds

[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.

[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

[horacio]

Muchisimas gracias jbrita, funcionó perfectamente. Saludos