Clipper On Line • Ver Tópico - Como atrelar uma rotina a um TEXTBOX

Como atrelar uma rotina a um TEXTBOX

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Como atrelar uma rotina a um TEXTBOX

Mensagempor Vandi » 11 Jan 2013 22:14

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
Vandi
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 83
Data de registro: 16 Set 2011 23:26
Cidade/Estado: Brasilia-DF
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Como atrelar uma rotina a um TEXTBOX

Mensagempor HASA » 12 Jan 2013 19:29

:))
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
Avatar de usuário

HASA
Colaborador

Colaborador
 
Mensagens: 1082
Data de registro: 01 Set 2003 19:50
Cidade/Estado: São Paulo
Curtiu: 1 vez
Mens.Curtidas: 51 vezes

Como atrelar uma rotina a um TEXTBOX

Mensagempor Toledo » 13 Jan 2013 09:25

Veja um pequeno exemplo:

#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,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Como atrelar uma rotina a um TEXTBOX

Mensagempor Vandi » 16 Jan 2013 15:46

:)) Toledo,

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

Muito obrigado pela ajuda...

Gilvandi
Vandi
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 83
Data de registro: 16 Set 2011 23:26
Cidade/Estado: Brasilia-DF
Curtiu: 0 vez
Mens.Curtidas: 1 vez




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro