Xailer & OZ Software

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

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

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

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

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

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...

O novo exemplo está em: www.sommus.com/testeform2.zip

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