Varias janelas abertas

23/11/2015

0

Boa Tarde,

É uma perguntinha besta, mas como eu faço para deixar o meu software com varias telas?

É que quando eu abro um form ou outro fecha.

Queria que ficasse os forms que eu abrisse.

Estou chamando o form assim:

   if FormLocEscala = Nil Then
      FormLocEscala := TFormLocEscala.Create(Application);
   FormLocEscala.Show;


as propriedades do formprincipal e dos outros estão conforme figura em anexo:

Já fiz isso e outro programa mas agora nesse não estou conseguindo.
Dirceu Morais

Dirceu Morais

Responder

Posts

23/11/2015

Douglas

Olá Dirceu, tudo bem?

O anexo da imagem não apareceu no post. Não está chamando o formulário, pois no primeiro instante não foi atribuído nada ao teu objeto.

Bem, experimente substituir o seu código por esse abaixo:

if not (FormLocEscala = Nil) Then
   FormLocEscala := TFormLocEscala.Create(Application);
FormLocEscala.Show;


Depois me diga o resultado.

Bons Códigos!
Responder

23/11/2015

Josafar Silva

Há muito distribuo os meus sistemas em Delphi, abrindo, minimizando várias telas ao mesmo tempo sem qualquer problema.
1) No form principal, incluo uma TAction List onde: na ação update da abertura de determinado formulário, testo se o usuário tem poderes para tal. Caso sim, na ação execute do form, por exemplo, um cadastro de Centro de Custo, escrevo o seguinte código:
frm:= TfrmCCusto.Create(Self)
try
frmCCusto.Show;
finally
end;

2) Para controlar a abertura de várias telas ao mesmo tempo, minimizando-as caso necessário, incluo no form(pai) do qual descendem os forms(filhos) um contador (que chamo de "fecha form" que no create é incrementado e no closeform é decrementado. Se o usuário, ao tentar fechar o sistema não houver fechado todas as telas, receberá uma mensagem:
"há formulários abertos", o que é verificado no form principal que testa se "fecha form" = 0.
Responder

29/11/2015

Dirceu Morais

Não deu certo. :(

Eu geralmente uso assim:


Nas propriedades do formprincipal em formstyle := fsMDIForm
Nos demais form eu coloco o formstyle := fsMDIChild

Ai eu chamo os forms assim:
if FormLocEscala = Nil Then
   FormLocEscala := TFormLocEscala.Create(Application);
FormLocEscala.Show;
Responder

16/12/2015

Josafar Silva

Nos meus sistemas, tanto o form principal quanto os demais o formstyle := fsNormal e tudo funciona perfeitamente.
Responder

16/12/2015

Ricardo Araujo

já tentou colocar assim para criar varias janelas :

Form4 := TForm4.Create(Application);
Form4.Show;


assim voce criar varias janelas, no formulário form4 terá que colocar no evento onclose :
action := caFree;
Form4 := nil;

depois de fazer tudo isto terá que fazer mais uma coisa segue imagem abaixo:
[img]http://arquivo.devmedia.com.br/forum/imagem/171323-20151216-234215.png[/img]

Espero tenho ajudado.
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar