Página 1 de 1
Duplo click em Tbrowse + gtwvw
Enviado: 20 Jul 2007 15:03
por edutek
Boa Tarde!!
Como faço para acionar no Tbrowse (modelo clipper 5.3) o duplo click do
mouse,
tipo cliclar duplo abre edição do registro.
uso 99.70 .org + gtwvw + tbrowse (clipper 5.3)
eduardo mendes
Enviado: 20 Jul 2007 17:05
por Stanis Luksys
Olá,
Se você usa um CASE para testar as teclas, basta avaliar se o "inkey" é corresponde ao numero dos botões do mouse, se não me engano é 1004 algo assim.
Para testar escreva:
a:=inkey() // de um clique duplo
? str(a)
Falou!
Enviado: 20 Jul 2007 19:32
por edutek
Isso ai mesmo
inkey.ch
K_LDBLCLK - 1006 botao esquedo
K_RDBLCLK - 1007 botao direto
Valeu!!!
Enviado: 21 Jul 2007 21:21
por Stanis Luksys
O duplo é 1004 mesmo? Senão pelo menos cheguei perto... hehehe
Apenas lembrando que necessita do SET EVENTMASK... Se não me engano na WVW é padrão.
Falou!
Enviado: 22 Jul 2007 00:46
por edutek
extraido do INKEY.CH
/* Mouse events */
#define K_MOUSEMOVE 1001
#define K_LBUTTONDOWN 1002
#define K_LBUTTONUP 1003
#define K_RBUTTONDOWN 1004
#define K_RBUTTONUP 1005
#define K_LDBLCLK 1006
#define K_RDBLCLK 1007
#define K_MBUTTONDOWN 1008 // Middle Button Down
#define K_MBUTTONUP 1009 // Middle Button Up
#define K_MDBLCLK 1010 // Middle Button Double Click
#define K_MMLEFTDOWN 1011 // Mouse Move Left Down
#define K_MMRIGHTDOWN 1012 // Mouse Move Right Down
#define K_MMMIDDLEDOWN 1013 // Mouse Move Middle Down
#define K_MWFORWARD 1014 // Mouse Wheel Forward
#define K_MWBACKWARD 1015 // Mouse Wheel Backward
#define K_NCMOUSEMOVE 1016 // Non-Client Area Mouse Movement
#define K_MINMOUSE 1001
#define K_MAXMOUSE 1016