GET c/ ON KEYDOWN

[clebervn]

O q preciso.....

estou com uma telinha de cadastro aberta e pus setinhas pra ir e voltar, mas preciso tb q ao usuário digitar a tecla de + ou - no teclado possa avançar pra frente e pra trás...
Como faço ?

é usando mesmo GET.... ON KEYDOWN {|| ...}

algúem tem algum exemplo ??

[Toledo]

clebervn, se existe GETs abertos, não seria melhor usar SET KEY?

Por exemplo:

Código: Selecionar todos

SET KEY FSHIFT,VK_RIGHT TO SuaFuncao()
SET KEY FSHIFT,VK_LEFT TO SuaFuncao()

No exemplo acima estou usando a combinação de teclas SHIFT + SETA PARA DIREITA ou SHIFT + SETA PARA ESQUERDA... no caso de GETs, o sinal de + ou - vai dar um certo problema, pois se o usuário ter que digitar no GET algum texto com o sinal de + ou -, como faz?

Abraços,

[sygecom]

Ou:

Código: Selecionar todos

#include "hwgui.ch"
STATIC Thisform
FUNCTION main()
 RETURN _teste()

FUNCTION _teste

 PRIVATE vEdit1 := ""
 PRIVATE oEdit1

  INIT DIALOG oDlg TITLE "Nome do Form" ;
    ICON HIcon():AddResource(1004)  ;
    AT 370,175 SIZE 255,70 ;
        FONT HFont():Add( '',0,-13,400,,,) NOEXITESC  ;
     STYLE WS_POPUP+WS_CAPTION+DS_SYSMODAL +DS_CENTER +WS_SYSMENU+WS_MINIMIZEBOX+WS_SIZEBOX
    Thisform := oDlg

   @ 9,22 GET oEdit1 VAR vEdit1 SIZE 215,24    ; 
        TOOLTIP "" ; 
        ON KEYDOWN {|this, key| oEdit1_onKeyDown( this, key ) }
        oEdit1:Name := 'oEdit1' 

   ACTIVATE DIALOG oDlg 

RETURN oDlg:lresult

STATIC FUNCTION oEdit1_onKeyDown
parameters this, key
if key = 107
   msginfo("clicou na tecla +")
elseif key = 109
   msginfo("clicou na tecla -")
endif
return .t.

[clebervn]

foi essa solução acima q adotei tb.... mas vlw