D�vida para liberar o form da mem�ria

Question

Colegas;Estou chamando um form da seguinte maneira:[quote:cd446fae09]procedure TfmTeste.Button1Click(Sender: TObject);var  formTeste : TfmTeste;begin  if formTeste = NIL then    formTeste := TfmTeste....

Vitor Alcantara · Answer

Cara tem um negocio que ta meio confuso, tu ta querendo criar o form de nome FmTeste dentro do pr�prio FmTeste � isso?...

Vitor Alcantara · Answer

Para liberar o form da mem�ria eu fasso assim:

Procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); 
begin
  Action := Cafree;
  Form2 := nil;//Coloco o nome do form atribuindo o valor nil a ele
end;

Dai pra chamar eu fasso assim:

begin 
  if Form2 = NIL then 
  Form2 := TForm2.Create(Application)
  else
  Form2.Show;
end;

Kohl · Answer

Tenho um problema semelhante, no meu caso eu queria liberar um FRAME da memoria, com um botao dentro do frame. O frame eh criado da seguinte forma:

new_fra:TFrame;
if new_fra = nil then begin
    new_fra            := TfraNewLyric.Create(Application);
    with new_fra do begin
      Parent                := pnlContent;
      Align                 := alClient;
      Show;
    end;
end;

O frame eh criado num TPanel que esta no frmMain. No frmMain tem um botao pra fechar esse frame, da seguinte maneira:

if new_fra <> nil then begin
    fra_newlyric.Free;
    fra_newlyric := nil
end;

Pois bem, esse botao funciona normalmente, mas eu queria colocar um botao dentro do Frame tambem, pra fechar ele. O unico jeito q eu vi foi esse:

frmMain.btnCloseClick(Self);

Ele at� funciona e fecha o frame, mas d� uma mensagem de erro:

Access violation at address 004036B9 in module �Project1.exe�. Read of address 0000AFC8

Como eu faria pra fazer esse bot�o fechar de forma eficiente o frame?

Obrigado desde j�

Kohl · Answer

Qual seria o evento chamado quando um Frame eh fechado? OnExit?Grato...

Martins · Answer

Por que vc n�o tenta assim.Coloque no OnDestroy[code:1:759197dc3c]begin   Action := caFree;   Self   := NIL; end;[/code:1:759197dc3c]...

Kohl · Answer

OnDestroy do frame?Tentei, mas ele diz q o Action nao foi definido.Nao entendo o que acontece, pq com o botao no form principal funciona normal, mas no botao dentro do frame sempre d� aquele erro ou d� [i:aa6680b896]Abstract Error[/i:aa6680b896].Alguem tem uma solucao?...

Emerson Nascimento · Answer

[quote:015781cd69=�vispo�]Colegas;Estou chamando um form da seguinte maneira:[quote:015781cd69]procedure TfmTeste.Button1Click(Sender: TObject);var  formTeste : TfmTeste;begin  if formTeste = NIL then    formTeste := TfmTeste.Create(Application);end;[/quote:015781cd69]e estou fechando assim:[code:1:015781cd69]procedure TfmTeste.FormClose(Sender: TObject; var Action: TCloseAction);begin  Action := caFree;  Self   := NIL;end;[/code:1:015781cd69]S� que mesmo depois de fechar o form, ele n�o fica como NIL. Dessa forma, na segunda vez que eu tentar abrir ele n�o vai entrar no IF.Por que? estou usando o Delphi 2006[/quote:015781cd69]isso n�o tem como dar certo, visto que a vari�vel formTeste � local no procedimento. sempre que vc clicar no bot�o ser� criada a vari�vel sem qualquer atribui��o.crie essa vari�vel na se��o private do seu form e tente algo como:[code:1:015781cd69]procedure TfmTeste.Button1Click(Sender: TObject);begin  if (formTeste = nil) or not formTeste.Showing then    formTeste := TfmTeste.Create(Application);end;procedure TfmTeste.FormClose(Sender: TObject; var Action: TCloseAction);begin  Action := caFree;end;procedure TfmTeste.FormCreate(Sender: TObject);begin  formTeste := nil;end;[/code:1:015781cd69]...

F�rum D�vida para liberar o form da mem�ria #344016