2

Tenho uma aplicação que possui 4 formulários.

Após o processo existe um botão para a pessoa iniciar novamente.

procedure TForm4.Button3Click(Sender: TObject);
begin
      FreeAndNil(Form1);
      FreeAndNil(Form2);
      FreeAndNil(Form3);
      FreeAndNil(Form4); //Libera o form da memória
      Application.CreateForm(Tform1, form1);
      Application.CreateForm(Tform2, form2);
      Application.CreateForm(Tform3, form3);
      Application.CreateForm(Tform4, form4);
      Application.Run; //Roda a aplicação
end;

Até ai ok, mas caso ela aperte no botão de fechar .

inserir a descrição da imagem aqui

Apresenta a seguinte mensagem:

inserir a descrição da imagem aqui

Ele trava, aparece a mensagem do windows para fechar o programa, e só assim ele fecha.

obs: (O erro só aparece caso a pessoa clique no botão para iniciar o processo novamente, caso ela abra o programa pela primeira vez, funciona corretamente.)

Acredito que está com um problema na hora de liberar os forms, aonde posso estar errando?

Minha intenção é que quando clicar no button3 houvesse um reset no form, e o usuário começasse do zero.

7
  • Você no OnClose do form tá apagando ele mesmo, mandando recriar, e dando Application.Run denovo?
    – DH.
    27/01/2016 às 13:15
  • acredito que não, quando digo clicar no fechar é o da janela mesmo. Não adicionei nenhum evento ao onclose 27/01/2016 às 13:18
  • O código que você mostrou é o que está no .dpr então?
    – DH.
    27/01/2016 às 13:22
  • Exatamente, eu uso ele em um botão. 27/01/2016 às 13:42
  • Como assim um botão? Pode mostrar mais do código? Tá muito confuso pra mim ainda.
    – DH.
    27/01/2016 às 13:44

2 Respostas 2

2

Tente isso:

procedure TForm4.Button3Click(Sender: TObject);
begin
 if TForm1 = nil then Form1 := TForm1.Create(Application);
 Form1.Show;

 if TForm2 = nil then Form2 := TForm2.Create(Application);
 Form2.Show;

 if TForm3 = nil then Form3 := TForm3.Create(Application);
 Form3.Show;

 if TForm4 = nil then Form4 := TForm4.Create(Application);
 Form4.Show;
end;

// insira no evento OnClose de cada Form1,2,3,4
procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 action:=caFree;
 Form4 :=nil;
end;
1

Na inicialização, a aplicação criou os formulários e guardou referência a eles a fim de poder destruí-los depois, ao ser encerrada.

O código de Button3Click destrói os formulários criados pela aplicação, de modo que quando a aplicação tenta destruí-los (durante o encerramento) ela chama o free utilizando as referências, agora inválidas, aos formulários que não existem mais, daí o erro.

A solução talvez seja retirar os formulários da lista de inicialização automática, talvez mudar a forma de "iniciar novamente" a aplicação.

Se desejar resetar realmente a aplicação, você pode usar este código: https://stackoverflow.com/a/6020898/1274092. Ele cria uma nova instância da aplicação e encerra a instância corrente em seguida.

8
  • o que quero fazer é que o fluxo continue, como se a aplicação tivesse sido fechada e aberto novamente um "reset" na aplicação. 27/01/2016 às 15:16
  • @GuilhermeLima Não é informação suficiente. Talvez você deva assumir o fluxo de execução da aplicação, criando e controlando o ciclo de vida dos formulários. A chamada ao Application.run em um click de botão também é bem esquisita.
    – Caffé
    27/01/2016 às 15:21
  • Concordo, e estou disposto a aceitar uma nova maneira de fazer o que quero, que novamente digo, é basicamente é dar um reset na aplicação. 27/01/2016 às 15:23
  • @GuilhermeLima Adicionei uma referência que reinicia a aplicação de fato (manda abrir uma nova instância e fecha a instância corrente em seguida).
    – Caffé
    27/01/2016 às 15:25
  • Bom notar que esse código de "resetar" a aplicação cria uma nova instância da aplicação, o que impede de usar um debugger na nova instância.
    – DH.
    27/01/2016 às 16:05

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .