Criar função para exibir form
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;
function mostraformulario(frm : tform): tform;
var
frm1 : tform;
Try
frm1 := frm;
frm1.ShowModal;
frm1.release;
result := frm1;
Finally
frm1.free;
End;
Rogerio_amorim
Curtidas 0
Respostas
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