Pessoal,
Eu crio e carrego meus formulário da seguinte maneira: procedure TformPrincipal.Button6Click(Sender: TObject); begin formrelatorio := Tformrelatorio.create ( application ); try formrelatorio.ShowModal finally formrelatorio.Release; formrelatorio:=nil; end; end; Queria criar uma procedure genérica para não precisar repetir esses comandos toda hora Mas estou levando uma surra, rssss. O que me veio na cabeça foi o seguinte: Procedure TformPrincipal.CarregaForm(NomeForm: string); begin NomeForm := TNomeForm.create ( application ); try NomeForm.ShowModal finally NomeForm.Release; NomeForm:=nil; end; end; Mas, não deu certo. Alguém pode me ajudar? [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html