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.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Asignarle teclas a un control Get
hola,
oMiGet:bGotFocus:= { !nkey,nFlag| if(nKey==VK_tuTecla, mifuncion(),) }
Salu2.
Ariel, gracias por responder pero tu c贸digo me da error, Este es el log
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
Muestra:
mifuncion()
Porfa.
Sds
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Karinha, aqui el c贸digo de mifuncion()
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 0Intente:
oMiGet:bGotFocus :={ || IF( nKey == VK_RETURN, MiFuncion( oMiGet ) ) }
贸
oMiGet:bGotFocus :={ || IF( nKey == VK_RETURN, MiFuncion( oMiGet ), ) }
Sds
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
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.
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
Muchisimas gracias jbrita, funcion贸 perfectamente. Saludos