Anthony Ormond Posted August 16, 2007 Report Share Posted August 16, 2007 Bom dia !!!! Eu estou utilizando um dbcombo no meu cadastro, mas ao precionar ENTER no combobox ele não está pulando para o próximo dbcombo. Eu já olhei outros tópicos e mesmo assim não consegui resolver o meu problema. Owner draw está como N. Redefine DBCombo oGt[25] var cEClasse ; Update ; ID 208 ; Alias "CLASSIFI" ; ItemField "CODIGO" ; ListField "DESCRICAO" ; of oDlgcadastro oGt[25]:bKeyDown := {|| if (GetASyncKey( VK_F2 ),BuscarClasse(),) } Desde já, muito obrigado. Anthony Ormond FWH(2.6) - xH 0.99.51 (simplex) - C++ 5.5 - Pelles C 4.50 Editado por - aormond on 16/08/2007 08:51:37 Quote Link to comment Share on other sites More sharing options...
Anthony Ormond Posted August 16, 2007 Author Report Share Posted August 16, 2007 Bom dia !!!! Eu estou utilizando um dbcombo no meu cadastro, mas ao precionar ENTER no combobox ele não está pulando para o próximo dbcombo. Eu já olhei outros tópicos e mesmo assim não consegui resolver o meu problema. Owner draw está como N. Redefine DBCombo oGt[25] var cEClasse ; Update ; ID 208 ; Alias "CLASSIFI" ; ItemField "CODIGO" ; ListField "DESCRICAO" ; of oDlgcadastro oGt[25]:bKeyDown := {|| if (GetASyncKey( VK_F2 ),BuscarClasse(),) } Desde já, muito obrigado. Anthony Ormond FWH(2.6) - xH 0.99.51 (simplex) - C++ 5.5 - Pelles C 4.50 Editado por - aormond on 16/08/2007 08:51:37 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 16, 2007 Report Share Posted August 16, 2007 oGetAtua:bKeydown:= { | nKey | if(nkey=VK_RETURN,oDialog:GoNextCtrl(oDialog:GotoFocus()),) } ou redefine combobox oind var wind ID 103 of oDlg Items cind oind:bKeyDown:={ |nKey| IF( nKey = VK_RETURN,odr:SetFocus(),)} João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Skype: fw_kapiaba FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Anthony Ormond Posted August 16, 2007 Author Report Share Posted August 16, 2007 Olá João, obrigado pela ajuda. Fiz o que você pediu e continuou a mesma coisa. Anthony Ormond FWH(2.6) - xH 0.99.51 (simplex) - C++ 5.5 - Pelles C 4.50 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 16, 2007 Report Share Posted August 16, 2007 citação:Olá João, obrigado pela ajuda. Fiz o que você pediu e continuou a mesma coisa. Anthony Ormond FWH(2.6) - xH 0.99.51 (simplex) - C++ 5.5 - Pelles C 4.50 id=quote>id=quote>VOCE FEZ ALGO ERRADO, MOSTRE-ME COMO ESTA FAZENDO(CÓDIGO). João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Skype: fw_kapiaba FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Anthony Ormond Posted August 16, 2007 Author Report Share Posted August 16, 2007 Redefine DBCombo oGt[25] var cEClasse ; Update ; ID 208 ; Alias "CLASSIFI" ; ItemField "CODIGO" ; ListField "DESCRICAO" ; of oCadPro:oDialog ; When (!oCadPro:lBrowse) oGt[25]:bKeydown:= {| nKey | if(nkey=VK_RETURN,oGt[26]:GoNextCtrl(oGt[26]:GotoFocus()),) } Anthony Ormond FWH(2.6) - xH 0.99.51 (simplex) - C++ 5.5 - Pelles C 4.50 Editado por - aormond on 16/08/2007 11:16:02 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 16, 2007 Report Share Posted August 16, 2007 VEJA SE OGT ACEITA UM VALID, DESVIE PARA UMA FUNCAO, E USE O COMANDO GETASYNCKEY. STATIC FUNCTION VALIDA_COMBO( oProximoGet ) IF GETASYNCKEY( VK_RETURN ) XFOCUS( oProximoGet ) RETURN( .T. ) ENDIF RETURN( .T. ) id=code>id=code>OU USE O COMANDO OJUMP, VEJA EXEMPLOS NOS TOPICOS. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Skype: fw_kapiaba FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Anthony Ormond Posted August 16, 2007 Author Report Share Posted August 16, 2007 Kapiaba, coloquei o nKey no final, ao pressionar a tecla ENTER não exibe nenhuma mensagem e se apertar qualquer outra tecla aparece a numeração. oGt[25]:bKeydown:= {| nKey | if(nkey=VK_RETURN,oCadPro:oDialog:GoNextCtrl(oCadPro:oDialog:GotoFocus()) ,alert(nKey) )} Tirei como conclusão que: o ENTER é reconhecido e não é mudado o foco Anthony Ormond FWH(2.6) - xH 0.99.51 (simplex) - C++ 5.5 - Pelles C 4.50 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 16, 2007 Report Share Posted August 16, 2007 oGt[26]: IF GETASYNCKEY( VK_RETURN ) .OR. ; GETASYNCKEY( VK_DOWN ) XFOCUS( oGt[26] ) RETURN( .T. ) ENDIF // //-------------------------------------------------------------------------// FUNCTION xFocus( oObj ) xSetFocus( oObj ) xSetFocus( oObj ) RETURN( .T. ) //-------------------------------------------------------------------------// // As vezes simples SetFocus( oObj ) nao faz um objeto ganhar foco // neste caso pode apelar para estas duas funcoes a seguir // For‡ar foco para um objeto especifico - Ednaldo Rolim... //-------------------------------------------------------------------------// FUNCTION xSetFocus( oObj ) LOCAL _oWnd := oObj:oWnd, _oTempo := "" DEFINE Timer _oTempo Interval 10 of _oWnd ; Action ( oObj:SetFocus(), _oTempo:End() ) ACTIVATE Timer _oTempo RETURN( .T. ) id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Skype: fw_kapiaba FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted August 16, 2007 Report Share Posted August 16, 2007 Kapiaba, vou me meter neste topico... o "rapaz" é novo, ele tah "fresquinho" ainda!! Vou tentar interpretar o suas respostas e ajuda-lo!! Jah jah volto pra postar o resultado dos testes!! Anderson.OL Skype: andersonolid=green> FW(2.6) | Clpp (5.3) FWH(2.6) | xH 0.99.51 (simplex)| C++ 5.5 Quebrando tudo!id=red> Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted August 16, 2007 Report Share Posted August 16, 2007 Kapiaba, retiro o q eu disse, apesar dele ser "fresquinho"!! Os testes soh falham!!! Para teste do bKeyDown fiz: oGt[25]:bKeydown := {| nKey | alert(nKey) }id=brown> Mas qdo enter eh pressionado, nada é exibido!!! Help-nos!!! Anderson.OL Skype: andersonolid=green> FW(2.6) | Clpp (5.3) FWH(2.6) | xH 0.99.51 (simplex)| C++ 5.5 Quebrando tudo!id=red> Editado por - anderson.ol on 16/08/2007 14:32:27 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 16, 2007 Report Share Posted August 16, 2007 citação:Kapiaba, vou me meter neste topico... o "rapaz" é novo, ele tah "fresquinho" ainda!! Vou tentar interpretar o suas respostas e ajuda-lo!! Jah jah volto pra postar o resultado dos testes!! Anderson.OL Skype: andersonolid=green> FW(2.6) | Clpp (5.3) FWH(2.6) | xH 0.99.51 (simplex)| C++ 5.5 Quebrando tudo!id=red> id=quote>id=quote> Gostei da iniciariva. MAIOR SUPER POTENCIA DO FIVEWIN BRASIL DIZ: OBRIGADUUU!! QUINTO ENCONTRO DE FIVEWINNERS - NOVEMBRO / 2007´- SE A MULHER DEIXAR, O ANDERSON VEM... VEM... VEM... HI, ASSIM KAI ANDERSON.... HAHAHAHAHAHAHAHA. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Skype: fw_kapiaba FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted August 16, 2007 Report Share Posted August 16, 2007 AAAHHH!! Num funciona tbm como abaixo: oGt[25]:bKeyChar := {|nKey| alert(nKey)}id=brown> Testei o pressionamento da tecla enter com a funcão abaixo: oDialog:bKeyDown := {|nKey| alert(nKey)}id=brown> Funciona qdo teclo [ENTER] em todos os componentes, menos qdo estou num ComboBox ou DBCombo !!! Ajude-me, pois este menino trabalha na mesa do meu lado!!! Num tow conseguindo render Anderson.OL Skype: andersonolid=green> FW(2.6) | Clpp (5.3) FWH(2.6) | xH 0.99.51 (simplex)| C++ 5.5 Quebrando tudo!id=red> Quote Link to comment Share on other sites More sharing options...
Anthony Ormond Posted August 16, 2007 Author Report Share Posted August 16, 2007 Infelizmente, tenho que pedir ajuda aos mestres do Fivewin. Uma hora chegarei lá. Anthony Ormond FWH(2.6)- C++ 5.5 -xHabour 0.99.51 (simplex) - Pelles C 4.50 Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted August 16, 2007 Report Share Posted August 16, 2007 Observaçãoid=red> if Combobox:Style == DropDown VK_RETURN (funfa) elseif Combobox:Style == DropDown List VK_RETURN (.not. funfa) end id=code>id=code>Anderson.OL Skype: andersonolid=green> FW(2.6) | Clpp (5.3) FWH(2.6) | xH 0.99.51 (simplex)| C++ 5.5 Quebrando tudo!id=red> Editado por - anderson.ol on 16/08/2007 15:39:07 Quote Link to comment Share on other sites More sharing options...
MarioJose Posted August 16, 2007 Report Share Posted August 16, 2007 A um tempo venho estudando uma linguagem ideal para migrar meus programas clipper, vi um pouco de delphi e a curva de aprendizagem é muito grande. Visito algumas vezes este forum tambem, até mesmo consegui o compilador, tirando a curva de aprendizagem que não é assim tão dificil, as classes são muito precárias (como pode ser visto na maioria dos topicos) Anderson.OL, aormond, desistam!! Fivewin clipper 2.6 + Blinker Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted August 16, 2007 Report Share Posted August 16, 2007 citação:A um tempo venho estudando uma linguagem ideal para migrar meus programas clipper, vi um pouco de delphi e a curva de aprendizagem é muito grande. Visito algumas vezes este forum tambem, até mesmo consegui o compilador, tirando a curva de aprendizagem que não é assim tão dificil, as classes são muito precárias (como pode ser visto na maioria dos topicos) Anderson.OL, aormond, desistam!! Fivewin clipper 2.6 + Blinker id=quote>id=quote>Cada gozador que aparece aquÃ.... Realmente o nosso "pobrema" é a curva. Uns tem outros não. Quem não tem, realmente desista ou use uma régua. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 16, 2007 Report Share Posted August 16, 2007 citação:Observaçãoid=red> if Combobox:Style == DropDown VK_RETURN (funfa) elseif Combobox:Style == DropDown List VK_RETURN (.not. funfa) end id=code>id=code>Anderson.OL Skype: andersonolid=green> FW(2.6) | Clpp (5.3) FWH(2.6) | xH 0.99.51 (simplex)| C++ 5.5 Quebrando tudo!id=red> Editado por - anderson.ol on 16/08/2007 15:39:07 id=quote>id=quote>ANDERSON, SE NÃO RESOLVEU, FAÇA UM DEMO, E ENVIE-ME PARA VER ESTE MISTERIO. CX.BAT CX.LNK FONTE *.RES - com o dialogo. Envie o exe se quiser. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Skype: fw_kapiaba FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted August 16, 2007 Report Share Posted August 16, 2007 Estou providenciando, se nao der tempo, posto amanha na parte da manha! Anderson.OL Skype: andersonolid=green> FW(2.6) | Clpp (5.3) FWH(2.6) | xH 0.99.51 (simplex)| C++ 5.5 Quebrando tudo!id=red> Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted August 17, 2007 Report Share Posted August 17, 2007 Kapiaba, enqto fazia o demo, percebi que no exemplo mais simples nao gerava o caos da troca de foco com o [ENTER]! Daew analisei mais cuidadosamente o problema, e tirei como conclusão que, qdo a dialog em questão não tem um menu, este problema não ocorre!! De qq maneira vou tentar terminar o exemplo e postar!! Anderson.OL Skype: andersonolid=green> FW(2.6) | Clpp (5.3) FWH(2.6) | xH 0.99.51 (simplex)| C++ 5.5 Quebrando tudo!id=red> Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted August 17, 2007 Report Share Posted August 17, 2007 Exmplo pronto aki http://www.fivewin.com.br/exibedicas.asp?id=816 Aguardo pela ajuda!! Anderson.OL Skype: andersonolid=green> FW(2.6) | Clpp (5.3) FWH(2.6) | xH 0.99.51 (simplex)| C++ 5.5 Quebrando tudo!id=red> Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted August 17, 2007 Report Share Posted August 17, 2007 Por favor, nao reparem o codigo, pois peguei partes do projeto original e fui montando o sample!! Ah, esqueci de agradecer a boa vontade do kapiaba em solicitar o sample para analisar. Obrigado cara!!! Anderson.OL Skype: andersonolid=green> FW(2.6) | Clpp (5.3) FWH(2.6) | xH 0.99.51 (simplex)| C++ 5.5 Quebrando tudo!id=red> Quote Link to comment Share on other sites More sharing options...
MarioJose Posted August 17, 2007 Report Share Posted August 17, 2007 Ainda vem me dizer que se nao sou capaz que use uma regua! Onde já se viu?? Combinar um menu com uma Combobox e o Combobox para de funcionar?!?! Fivewin clipper 2.6 + Blinker Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted August 17, 2007 Report Share Posted August 17, 2007 citação:Ainda vem me dizer que se nao sou capaz que use uma regua! Onde já se viu?? Combinar um menu com uma Combobox e o Combobox para de funcionar?!?! Fivewin clipper 2.6 + Blinker id=quote>id=quote>Muito ajuda quem pouco atrapalha!! Anderson.OL Skype: andersonolid=green> FW(2.6) | Clpp (5.3) FWH(2.6) | xH 0.99.51 (simplex)| C++ 5.5 Quebrando tudo!id=red> Quote Link to comment Share on other sites More sharing options...
vagner Posted August 17, 2007 Report Share Posted August 17, 2007 citação:Ainda vem me dizer que se nao sou capaz que use uma regua! Onde já se viu?? Combinar um menu com uma Combobox e o Combobox para de funcionar?!?! Fivewin clipper 2.6 + Blinker id=quote>id=quote>Olá, Eu não sei direito se vc entendeu a pergunta , Ele está falando de dois ComboBox, não và nada a respeito de um MENU , quanto as dificuldades de linguagem todas linguagens têm dificuldades, o que tentamos fazer nesse fórum e retirar essas dificuldades , agora se vc prestar bem atenção verá que em Delphi, C, Java ou qualquer outra quando vc passa de um controle para outro todas são feitas através da tecla TAB, nós em FW ainda conseguimos passar com o enter sem precisar ficar manipulando muita coisa Vagner Wirts V Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.