Página 1 de 1
Como atrelar uma rotina a um TEXTBOX
Enviado: 11 Jan 2013 23:14
por 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
Como atrelar uma rotina a um TEXTBOX
Enviado: 12 Jan 2013 20:29
por 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
Como atrelar uma rotina a um TEXTBOX
Enviado: 13 Jan 2013 10:25
por 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,
Como atrelar uma rotina a um TEXTBOX
Enviado: 16 Jan 2013 16:46
por Vandi
) Toledo,
Show de bola, valeu mesmo!!! Gostei muito do seu exemplo acima.
Simples e objetivo.
Muito obrigado pela ajuda...
Gilvandi