Caros desenvolvedores de Xailer,
Na minha aplicação há momentos em que preciso ocultar determinados formulários e depois mostra-los novamente... Mas, ao fazer isso com formulários que foram abertos com SHOWMODAL() percebi um problema... Ele não volta como SHOWMODAL()...
Segue o link do exemplo: www.sommus.com/testeform.zip
Obrigado pela atenção,
Reginaldo
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Problema com formulários
Problema com formulários
Pessoal,
Alguém pode me ajudar com esse problema... Estou com dificuldades de seguir com o projeto, enquanto não encontrar solução para esse problema...
Obrigado pela atenção,
Reginaldo
Alguém pode me ajudar com esse problema... Estou com dificuldades de seguir com o projeto, enquanto não encontrar solução para esse problema...
Obrigado pela atenção,
Reginaldo
Problema com formulários
Reginaldo, acho que essa pode ser uma solução para o seu problema:
METHOD Button2Click( oSender ) CLASS TForm1
LOCAL nForm, aForms:=Application:aForms
FOR nForm:=1 TO Len(aForms)
IF aForms[nForm]:cText<>'Form1'
IF aForms[nForm]:lModal
aForms[nForm]:ShowModal()
ELSE
aForms[nForm]:Show()
ENDIF
ENDIF
NEXT
RETURN Nil
Teste e nos diga se funcionou para o seu propósito
Abraços,
Juliano
METHOD Button2Click( oSender ) CLASS TForm1
LOCAL nForm, aForms:=Application:aForms
FOR nForm:=1 TO Len(aForms)
IF aForms[nForm]:cText<>'Form1'
IF aForms[nForm]:lModal
aForms[nForm]:ShowModal()
ELSE
aForms[nForm]:Show()
ENDIF
ENDIF
NEXT
RETURN Nil
Teste e nos diga se funcionou para o seu propósito
Abraços,
Juliano
Problema com formulários
Caro Juliano,
Obrigado por responder...
Na verdade, eu já tinha feito esse teste, e não resolve... Note que ao dar o Hide() o sistema não fica aguardando a "resposta" do modal...
Reginaldo
Obrigado por responder...
Na verdade, eu já tinha feito esse teste, e não resolve... Note que ao dar o Hide() o sistema não fica aguardando a "resposta" do modal...
Reginaldo
Problema com formulários
Reginaldo,
Vocíª pode me explicar com mais detalhes do que precisa? Pois aqui testei e está funcionando o modal no form 2, tentei no xp e no 7.
Juliano
Vocíª pode me explicar com mais detalhes do que precisa? Pois aqui testei e está funcionando o modal no form 2, tentei no xp e no 7.
Juliano
Problema com formulários
Juliano,
Fiz uma pequena alteração no código do exemplo: www.sommus.com/testeform2.zip
Veja que ao ocultar o form2, ele prossegue com a aplicação e verifica o "nModalResult". Esse é o problema...
Fiz uma pequena alteração no código do exemplo: www.sommus.com/testeform2.zip
Veja que ao ocultar o form2, ele prossegue com a aplicação e verifica o "nModalResult". Esse é o problema...
Problema com formulários
O novo exemplo está em: www.sommus.com/testeform2.zip
Problema com formulários
Sim, ao ocultar o form, ele continua com a execução do programa, pois se após ocultar o form 2 continuar em modal , travaria seu programa... Mas era isso que vocíª precisava? Mesmo com o form oculto não pudesse utilizar o form 1?
Juliano
Juliano