Como atrelar uma rotina a um TEXTBOX

[Vandi]

Boa noite,

Gostaria de saber se, em uma tela com vários TEXTBOXs, teria como "atrelar" a um determinado TEXBOX uma rotina de pesquisa condicionada ao pressionamento de uma tecla ( F5 por exemplo ).
Ou seja, a condição da tecla F5 ser pressionada só estaria ativa na ocasião daquele TEXTBOX específico, nos demais TEXTBOXs o fato de pressionar a tecla F5 não surtiriria qualquer efeito.
Espero ter me feito entender,

Agradecimentos,

Gilvandi

[HASA]

)
Não é possivel, tente GETBOX você consegue chamar a função de pesquisa somente neste getbox nos demais não, pode ter getbox junto aos demais textbox já existentes, veja na pasta c:\minigui\samples\getbox você vai achar bem interessante ok, qualquer coisa post ai ok.
:xau
Hasa

[Toledo]

Veja um pequeno exemplo:

Código: Selecionar todos

#include <hmg.ch>

Function Main

   SET NAVIGATION EXTENDED

   DEFINE WINDOW Form_1 ;
      AT 0,0 ;
      WIDTH 496 HEIGHT 243 ;
      TITLE 'Setar F5 em apenas um TextBox' ;
      MAIN 

      @ 20,20 TEXTBOX Text_1 ;
                      HEIGHT 24 ;
                      WIDTH 450 ;
                      VALUE "F5 não funciona aqui"

      @ 70,20 TEXTBOX Text_2 ;
                      HEIGHT 24 ;
                      WIDTH 450 ;
                      VALUE "Aqui sim! Vai funcionar..." ;
                      ON GOTFOCUS {|| Setar_F5(.T.) } ;
                      ON LOSTFOCUS {|| Setar_F5(.F.) }

      @ 120,20 TEXTBOX Text_3 ;
                      HEIGHT 24 ;
                      WIDTH 450 ;
                      VALUE "F5 não funciona aqui"

      @ 170,360 BUTTON Button_1 ;
                CAPTION "Sair" ;
                ACTION {|| Form_1.release } ;
                WIDTH 100 ;
                HEIGHT 28

   END WINDOW

   CENTER WINDOW Form_1

   ACTIVATE WINDOW Form_1

Return

Function Setar_F5(lSeta)
IF lSeta
   ON KEY F5 OF Form_1 ACTION {|| FuncaoF5() }
ELSE
   RELEASE KEY F5 OF Form_1
ENDIF
Return .T.

Function FuncaoF5()
MsgInfo("Aqui vai a Funcao F5")
return .T.

Abraços,

[Vandi]

) Toledo,

Show de bola, valeu mesmo!!! Gostei muito do seu exemplo acima.
Simples e objetivo.

Muito obrigado pela ajuda...

Gilvandi