Clipper On Line • Ver Tópico - Sair com o ENter

Sair com o ENter

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Sair com o ENter

Mensagempor bencz » 21 Jun 2012 08:36

Olá, gostaria de saber, como posso fazer para ir apertando o enter, e ele ir passando de um text-box para o outro..

por exemplo, tenho um form, com 5 text-box, e o usuario vai apertando enter, e vai passando de um text-box para o outro, mesmo se ele estiver vazio... e quando ele chegar no ultimo textbox, ele fecha a dialog, entende ?

Então, como posso fazer isso ?
Agradeço a ajuda.
Alexandre
Imagem
Avatar de usuário

bencz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 517
Data de registro: 28 Abr 2012 17:36
Curtiu: 6 vezes
Mens.Curtidas: 34 vezes

Sair com o ENter

Mensagempor ANDRIL » 21 Jun 2012 08:52

A resposta esta neste tópico http://www.pctoledo.com.br/forum/viewtopic.php?f=46&t=13068&p=75136&hilit=clipper#p75136 fornecida pelo Leonardo Sygecon.
Ate+
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Avatar de usuário

ANDRIL
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1270
Data de registro: 06 Jul 2004 00:44
Curtiu: 12 vezes
Mens.Curtidas: 46 vezes

Sair com o ENter

Mensagempor bencz » 21 Jun 2012 09:03

obrigado (:
mas, como posso fazer p/ saber, se esta no ultimo text-box, e se estiver, sair do dialog ?
Imagem
Avatar de usuário

bencz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 517
Data de registro: 28 Abr 2012 17:36
Curtiu: 6 vezes
Mens.Curtidas: 34 vezes

Sair com o ENter

Mensagempor Imatech » 21 Jun 2012 16:50

Não seria interessante pelo menos 2 botões ao final dos TxtBox (Confirma e Cancela) ?

Chegou ao botão confirma... Tecla ENTER novamente (Confere se todos os TxtBox foram preenchidos corretamente: Grava)... fim
M., Ronaldo

by: IMATECH

IMATION TECNOLOGIA
Avatar de usuário

Imatech
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 350
Data de registro: 24 Ago 2010 23:48
Cidade/Estado: Goiânia-GO
Curtiu: 4 vezes
Mens.Curtidas: 27 vezes

Sair com o ENter

Mensagempor Toledo » 21 Jun 2012 17:36

Outra opção é colocar um VALID no último GET:

VALID {|| nomedialog:Close() }


No VALID pode se usar uma função para validar os campos, gravar os registros, etc...

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

Sair com o ENter

Mensagempor nasouza » 08 Jul 2020 12:55

estou dentro da dialog, em um browse, como sair apenas teclando o enter.
nasouza
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 37
Data de registro: 20 Jul 2009 17:57
Cidade/Estado: Santa Isabel do Ivai - Pr
Curtiu: 2 vezes
Mens.Curtidas: 0 vez

Sair com o ENter

Mensagempor Itamar M. Lins Jr. » 08 Jul 2020 13:07

Ola!
Uma dica, na pasta docs tem um manual em Html, e na internet também.
CLIPPER - to force the Clipper like behavior - the Enter key is used for moving between GET's;
NOEXIT - the Enter key doesn't cause closing of a dialog box.

 INIT DIALOG <oWnd>
        [ TITLE <cTitle> ]
        [ AT <x>, <y> ]
        [ SIZE <width>, <height> ]
         [ ICON <ico> ]
         [ BACKGROUND BITMAP <oBmp> ]
        [ STYLE <nStyle> ]
        [ FONT <oFont> ]
        [ BACKCOLOR <clr> ]
        [ CLIPPER ]
        [ NOEXIT ]
        [ NOEXITESC ]
        [ NOCLOSABLE ]
        [ ON INIT <bInit> ]
        [ ON SIZE <bSize> ]
        [ ON PAINT <bPaint> ]
        [ ON GETFOCUS <bGfocus> ]
        [ ON LOSTFOCUS <bLfocus> ]
        [ ON OTHER MESSAGES <bOther> ]
        [ ON EXIT <bExit> ]
        [ HELPID <nHelpId>> ]

ACTIVATE DIALOG <oDlg>
             [ NOMODAL ]
             [ MAXIMIZED ]
             [ MINIMIZED ]
             [ CENTER ]
             [ ON ACTIVATE <bInit> ]

Mastigado!
INIT Dialog oDlg CLIPPER NOEXIT TITLE cTitulo Font oFont AT 0,0 SIZE 730,420 ;


Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

Sair com o ENter

Mensagempor Itamar M. Lins Jr. » 08 Jul 2020 13:19

Ola!
Ixi! tem esse detalhe, é um browse.
em um browse,

Vai depender de como está tratando as teclas do browse.
Enter é para pular uma célula para outra do browse (caso ela(cell) não for editável)
E na edição salva, igual o comportamento do tbrowse do clipper.
@ <x>,<y> BROWSE <oBrowse>
        [ ARRAY ]
        [ DATABASE ]
        [ OF <oWnd> ];
        [ ID <nId> ]
        [ SIZE <width>, <height> ]
        [ ON INIT <bInit> ]
        [ ON SIZE <bSize> ]
        [ ON PAINT <bDraw> ]
        [ ON CLICK <bClick> ]
        [ ON RIGHTCLICK <bRClick> ]
        [ ON GETFOCUS <bGetFocus> ]
        [ ON LOSTFOCUS <bLostFocus> ]
        [ STYLE <nStyle> ]
         [ <lNoVScr: NO VSCROLL> ]
         [ <lNoBord: NO BORDER> ]
        [ FONT <oFont> ]
         [ APPEND ]
         [ AUTOEDIT ]
         [ ON UPDATE <bUpdate> ]
         [ ON KEYDOWN <bKeyDown> ]
         [ ON POSCHANGE <bPosChg> ]
         [ MULTISELECT ]

Neste caso pelo "On KeyDown {||fKeyChk()}"
Não sei como está ai seu código, neste caso, pq tem outra opção além dessa que mostrei.

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

Sair com o ENter

Mensagempor alxsts » 08 Jul 2020 19:34

Olá!

Não sei qual é a tua necessidade mas, parece estranho sair de um browser com enter... teste assim:

FUNCTION Teste()

   LOCAL oForm, aArray := {}, oBr

   INIT DIALOG oForm TITLE "Teste" AT 374,216 SIZE 778,425;
        FONT HFont():Add( "Verdana",0,-13,400,,,) CLIPPER  NOEXIT STYLE DS_CENTER + WS_VISIBLE + WS_CAPTION + WS_SYSMENU ICON NIL
   
   @ 006,005 BROWSE oBr ARRAY SIZE 770,400 FONT HFont():Add( '',0,-13,400,,,) AUTOEDIT STYLE WS_TABSTOP+WS_VSCROLL+WS_HSCROLL ;

   oBr:bKeyDown := {|o,oForm| oBr_KeyPress(o, oForm) }

...

RETURN NIL
//---------------------------------------------------------------------------------------------------------------------------------------

STATIC FUNCTION oBr_KeyPress(o, oForm )

   If GetKeyState(VK_RETURN,.F.,.T.) < 0
      oForm:close()
   Endif

RETURN .T.
//---------------------------------------------------------------------------------------------------------------------------------------
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes




Retornar para HwGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 7 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