Criar Duas Vezes O Mesmo Form

[Ricardo_PF]

Olá, estou com o seguinte problema:

Possuo 2 variáveis sendo uma um TForm (frm) e outra um TComponentClass (frmClass).

Em minha aplicação tenho as seguintes linhas:

Application.CreateForm(frmClass, frm);

frm.showModal;

frm.Free;

Quando essas linhas são executadas pela primeira vez tudo ocorre bem, porém na segunda vez não passa da primeira linha e dá um erro de leitura de memória.

Esse formulário que está sendo criado é do tipo fsNormal, portanto acretido que não seja problema com o ShowModal. Essas linhas são chamadas de dentro de outro formulário que é do tipo fsMDIChild, ou seja, é um formulário de manutenção (Normal) que é chamado de dentro do formulário de consulta (MDIChild).

Não sei, mas me parece que o Free não está funcionando como eu imaginava que deveria, porém se peço para percorrer os componentes da aplicação após o Free ele não encontra o formulário (ou seja, teoricamente deve ter funcionado).

Grato a ajuda que conseguir,

Ricardo.

[Guest - Jorge -]

Tente usar o método Release ao invés do Free.

[Churc]

tenta assim

if nomedoform = nil then application.createform(tnomedoform, nomedoform);

try

nomedoform.showmodal;

finally

nomedoform.release; //aqui você libera tudo o que esta pendente neste form

nomedoform := nil; //e aqui você libera da memoria

end;

abraço