Pergunta b�sica

Question

:oops:  :oops: Galera, eu gostaria de saber qual � a melhor forma de chamar e destruir um form e liberar mem�ria um form.Eu uso o seguinte c�digo para chamar:[code:1:38538a293f]        If Form = Nil t...

Mahdak · Answer

demetrius, eu uso o seguinte c�digo:criar:[code:1:a48eed8b26]if form1 = nil thenform1 := Tform1.Create ( Application );form1.Show; { ou Form1.ShowModal; }[/code:1:a48eed8b26]destruir:[code:1:a48eed8b26]form1 := nil;form1 := caFree;[/code:1:a48eed8b26]h� quem diga que isso est� errado, porem nunca tive problemas aqui...Abra�os......

Michael · Answer

[quote:db39df4567=�mahdak�]Form1 := caFree[/quote:db39df4567]  :?: ;-)Demetrius, d� uma olhada neste excelente artigo do site [url=//delphi.about.com]About Delphi[/url]: //delphi.about.com/od/adptips2005/qt/nilselfapp.htmEu o chamo de �[b:db39df4567]The Ultimate Guide[/b:db39df4567]�. ;-)[]�s...

Mahdak · Answer

[quote:531ec575c5=�Michael�][quote:531ec575c5=�mahdak�]Form1 := caFree[/quote:531ec575c5]  :?: ;-)Demetrius, d� uma olhada neste excelente artigo do site [url=//delphi.about.com]About Delphi[/url]: //delphi.about.com/od/adptips2005/qt/nilselfapp.htmEu o chamo de �[b:531ec575c5]The Ultimate Guide[/b:531ec575c5]�. ;-)[]�s[/quote:531ec575c5]ehehehehedescurpa a inguioran�a Michael[code:1:531ec575c5]Action   := caFree;[/code:1:531ec575c5]Abra�os......

Demetrius · Answer

Utilizei o c�gigo como no site, mas sou meio lerdo, acho q fiz alguma coisa errada por que deu erro, por favor deem uma olhada.

coloquei o c�digo em um botao para chamar outro form.

var
   myForm : TFCadProdutoFracionado;
begin
   myForm := TFCadProdutoFracionado.Create(nil);
   try
     FCadProdutoFracionado.ShowModal;
   finally
     FCadProdutoFracionado.Free;
   end;
end;

Rjun · Answer

Voc� criou myForm mas esta tentando exibir FCadProdutoFracionado....

Michael · Answer

Que erro?Lembre-se de remover o formul�rio da lista de forms auto criados pelo Delphi ([b:164feb0baa]Project->Options[/b:164feb0baa]).[]�s...

Demetrius · Answer

Bati com a cabe�a na parede, agora funcionou.

var
  FCadProdutoFracionado : TFCadProdutoFracionado;
begin
   FCadProdutoFracionado := TFCadProdutoFracionado.Create(nil) ;
   try
     FCadProdutoFracionado.ShowModal;
   finally
     FCadProdutoFracionado.Free;
   end;
end;

F�rum Pergunta b�sica #296801