Criar função para exibir form

Delphi

27/07/2005

Criei uma simples função para exibir o form, mas estou tendo problemas na hora em que fecho o form e tento exibilo novamente, segue o código abaixo para análise:

function mostraformulario(frm : tform): tform;
var
frm1 : tform;

Try
frm1 := frm;
frm1.ShowModal;
frm1.release;
result := frm1;
Finally
frm1.free;
End;


Rogerio_amorim

Rogerio_amorim

Curtidas 0

Respostas

Massuda

Massuda

27/07/2005

Criei uma simples função para exibir o form, mas estou tendo problemas na hora em que fecho o form e tento exibilo novamente...
Da forma como está, seu código destrói duas vezes o form (usando Release e Free) e depois retorna o form (que foi destruído).

Se você quiser que apenas mostre o form, retire o Release e o Free.


GOSTEI 0
POSTAR