jnilson Posted December 9, 2006 Report Share Posted December 9, 2006 Prezados amigos. Vejam o código abaixo: #Include "Fivewin.ch" * * FUNCTION Main() local oDlg DEFINE Dialog oDlg FROM 5,10 TO 24, 55 ; TITLE "Dialog Principal" oDlg:bStart := { || SegundaDialog() } ACTIVATE Dialog oDlg Centered Return * * * FUNCTION SegundaDialog Local oDlg Define Dialog oDlg From 10,15 to 23,50 ; Title "Segunda Dialog" @ 03, 03 BUTTON "&Mensagem" OF oDlg SIZE 40, 12 ; ACTION ( oDlg:Hide() ,; MsgInfo("As duas janelas sumiram!!!") ,; oDlg:Show() ,; oDlg:SetFocus() ) Activate Dialog oDlg Centered Return id=code>id=code>Quando se pressiona o botão "Mensagem", as duas dialogs são escondidas, e não apenas a segunda, conforme a chamada do método oDlg:Hide(). Por que ocorre isso? Existe alguma forma de esconder apenas a segunda dialog? Josenilson Neiva Teresina-PI FWH 2.5/Pelles/xMate Quote Link to comment Share on other sites More sharing options...
jnilson Posted December 9, 2006 Author Report Share Posted December 9, 2006 Prezados amigos. Vejam o código abaixo: #Include "Fivewin.ch" * * FUNCTION Main() local oDlg DEFINE Dialog oDlg FROM 5,10 TO 24, 55 ; TITLE "Dialog Principal" oDlg:bStart := { || SegundaDialog() } ACTIVATE Dialog oDlg Centered Return * * * FUNCTION SegundaDialog Local oDlg Define Dialog oDlg From 10,15 to 23,50 ; Title "Segunda Dialog" @ 03, 03 BUTTON "&Mensagem" OF oDlg SIZE 40, 12 ; ACTION ( oDlg:Hide() ,; MsgInfo("As duas janelas sumiram!!!") ,; oDlg:Show() ,; oDlg:SetFocus() ) Activate Dialog oDlg Centered Return id=code>id=code>Quando se pressiona o botão "Mensagem", as duas dialogs são escondidas, e não apenas a segunda, conforme a chamada do método oDlg:Hide(). Por que ocorre isso? Existe alguma forma de esconder apenas a segunda dialog? Josenilson Neiva Teresina-PI FWH 2.5/Pelles/xMate Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 9, 2006 Report Share Posted December 9, 2006 //-> Modificado Por João Santos //-> São Paulo - Brasil - kmt_karinha@pop.com.br #Include "Fivewin.ch" // //-> Primeira Dialog // FUNCTION Main() LOCAL oDlg, oSaida DEFINE DIALOG oDlg FROM 5,10 TO 24, 55 ; TITLE "Dialog Principal" oDlg:lHelpIcon := .F. oDlg:bStart := { || SegundaDialog( oDlg ) } @ 007, 0010 BUTTON oSaida PROMPT "&Saida" ; OF oDlg ; SIZE 50, 12 ; ACTION( oDlg:End() ) CANCEL ACTIVATE DIALOG oDlg CENTERED Release All RETURN NIL // //-> Segunda Dialog Hide - Escondendo // FUNCTION SegundaDialog( oDlg ) LOCAL oDlgHide, oSaidaHide DEFINE DIALOG oDlgHide FROM 10,15 TO 23,50 ; TITLE "Segunda Dialog - Escondida" oDlgHide:lHelpIcon := .F. @ 003, 003 BUTTON "&Mensagem" OF oDlgHide SIZE 40, 12 ; ACTION ( oDlgHide:Hide(), ; MsgInfo("As duas janelas Nao sumiram!!!"), ; oDlgHide:Show(), ; oDlgHide:SetFocus() ) @ 4.5, 008 BUTTON oSaidaHide PROMPT "&Saida" ; OF oDlgHide ; SIZE 50, 12 ; ACTION( oDlgHide:End() ) CANCEL ACTIVATE DIALOG oDlgHide CENTERED Release All RETURN NIL // //-> FIM DO PROGRAMA id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
jnilson Posted December 11, 2006 Author Report Share Posted December 11, 2006 Amigo, Testei as modificações que vc sugeriu mas não deu certo. As duas dialogs continuam sumindo quando o botão mensagem é pressionado. Se quiser, posso te mandar o executável gerado com o meu fivewin. Alguem ai tem uma outra opção pra solucionar o problema? Josenilson Neiva Teresina-PI FWH 2.5/Pelles/xMate Quote Link to comment Share on other sites More sharing options...
giovanyvecchi Posted December 11, 2006 Report Share Posted December 11, 2006 Deixa eu ver o executavel Giovany Vecchi - Jales - SP FWH 2.6 /Clipper 5.3b /Blinker 5.0 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 /PellesC Quote Link to comment Share on other sites More sharing options...
jnilson Posted December 11, 2006 Author Report Share Posted December 11, 2006 Giovany, já mandei pro seu e-mail. Aguardo um retorno, ok? Josenilson Neiva Teresina-PI FWH 2.5/Pelles/xMate Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 11, 2006 Report Share Posted December 11, 2006 citação:Amigo, Testei as modificações que vc sugeriu mas não deu certo. As duas dialogs continuam sumindo quando o botão mensagem é pressionado. Se quiser, posso te mandar o executável gerado com o meu fivewin. Alguem ai tem uma outra opção pra solucionar o problema? Josenilson Neiva Teresina-PI FWH 2.5/Pelles/xMate id=quote>id=quote>mande tudo, fonte e executavel. Alguma Coisa Você está Fazendo Errado... O Exemplo acima funciona perfeito. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 11/12/2006 11:11:17 Quote Link to comment Share on other sites More sharing options...
jnilson Posted December 11, 2006 Author Report Share Posted December 11, 2006 Olá kapiaba, Já mandei pro seu e-mail tambem. Será que o problema é a versão do meu fivewin? Josenilson Neiva Teresina-PI FWH 2.5/Pelles/xMate Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 11, 2006 Report Share Posted December 11, 2006 citação:Olá kapiaba, Já mandei pro seu e-mail tambem. Será que o problema é a versão do meu fivewin? Josenilson Neiva Teresina-PI FWH 2.5/Pelles/xMate id=quote>id=quote>FIVEWIN, É FIVEWIN!!! hahahaha. CUAL É A SUA VERSÃO??? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 11, 2006 Report Share Posted December 11, 2006 AKI, OS DOIS EXEMPLOS, FUNCIONARAM PERFEITOS, SOMENTE A SEGUNDA DIALOG FICOU HIDE(). João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
giovanyvecchi Posted December 11, 2006 Report Share Posted December 11, 2006 O primeiro dialogo não esta HIDE, ele fica atras das janelas do windows, quando aparecer a menssagem de um ALT-TAB, q o dialogo esta la. A questão q acontece isto é de ligação, quando voce envoca o bStart da dialog, o mesmo ainda não registrou a dialog por não acabar de carregar. O certo é voce criar HANDLE, uma WINDOW, q assim os controles dependerão da janela mãe. Se iniciar um programa com dialogo os controles ficam individuais. Mandei pro seu e-mail o exemplo Giovany Vecchi - Jales - SP FWH 2.6 /Clipper 5.3b /Blinker 5.0 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 /PellesC Quote Link to comment Share on other sites More sharing options...
Kbelo Posted December 11, 2006 Report Share Posted December 11, 2006 #Include "Fivewin.ch" ** FUNCTION Main() local oDlg DEFINE Dialog oDlg FROM 5,10 TO 24, 55 ; TITLE "Dialog Principal" ACTIVATE Dialog oDlg Center on init SegundaDialog() Return *** FUNCTION SegundaDialog Local oDlg Define Dialog oDlg From 10,15 to 23,50 ; Title "Segunda Dialog" @ 03, 03 BUTTON "&Mensagem" OF oDlg SIZE 40, 12 ; ACTION ( oDlg:Hide() ,; MsgInfo("As duas janelas sumiram!!!") ,; oDlg:Show() ,; oDlg:SetFocus() ) Activate Dialog oDlg Center Return id=code>id=code>Marcelo Michels celo.michels@ibestvip.com.br celo.michels@hotmail.com marcelo@lorenzi.com.br -> Lorenzi Soluções Têxteis <- Criciuma - SC xHarbour build 0.99.2 + WS Editado por - kbelo on 11/12/2006 13:19:23 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.