ayuda para saber la tecla

[luis cortes]

Amigos esta funcion la copie de un demo, me sirve con tsbrowse, para cuando presione enter,me traiga la opcion de editar el producto, pero le quiero agregar la opcion de la tecla delete, y no me reconoce la tecla.

// esto esta ok
Function Tecla105(nkey,olbx1)
Local nAccion
nAccion:=ascan({VK_RETURN},nkey)
if nAccion==1
EditArticulo(.F.,oLbx1)
endif
Return nil

// quiuero esto pero no me funciona

Function Tecla105(nkey,olbx1)
do case
case nkey==13
Editarticulo(.f.,olbx)
case nkey==46
delarticulo(olbx)
endcase
Return nil

[DanielPuente]

Luis:

El codigo de la tecla DEL es 7, fijate en fwxx\include\inkey.ch:

#define K_DEL 7 // Del, Ctrl-G

Esto es para wbrowse, pero podrias adaptarlo al equivalente para la tsbrowse:

oBrw:bkeydown:={|nk| Teclas(nk,oBrw3,oBrw,walias) }

STATIC FUNCTION Teclas(nk,oBrw3,oBrw,walias)

if nK==VK_INSERT
SALIDAS()
elseif nK==VK_F5
oBrw3:Refresh() ; oBrw:Refresh()
elseif nK==VK_F6
Copia_Presu() ; Refre3() ; oBrw3:Upstable() ; oBrw3:Refresh()
elseif nK==VK_RETURN
EditaCelda(oBrw,oBrw:nColAct,LLOFACT->PENDIENTE,.T.,wAlias )
endif

RETURN NIL


Saludos,