ayuda para saber la tecla

ayuda para saber la tecla

Postby luis cortes » Mon Nov 07, 2005 8:18 pm

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
luis cortes
 
Posts: 17
Joined: Wed Oct 12, 2005 8:38 pm
Location: antofagasta

Postby DanielPuente » Tue Nov 08, 2005 2:25 am

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,
Daniel Puente
Mar del Plata, Argentina
danielpuente@speedy.com.ar
puenteda@hotmail.com
DanielPuente
 
Posts: 108
Joined: Sun Oct 09, 2005 6:12 pm
Location: Mar del Plata - Argentina


Return to FiveWin para CA-Clipper

Who is online

Users browsing this forum: No registered users and 18 guests