Por favor desculpe minha msg anterior, eu fiz de cabeça em testei... mudei algumas coisas...
procedure TForm1.ShowForm(Form: TForm); begin Form.ShowModal; Form.Release; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowForm(TForm2.Create(application)); end; Por favor desculpem minha falha... Valmir Santana [EMAIL PROTECTED] --- Em [EMAIL PROTECTED], "valmsrj" <[EMAIL PROTECTED]> escreveu > > Não entendi muito bem o q vc quer mas acho q assim vai ficar melhor > (é só uma sugestão). Se não for isso, me diga... > > // implementação > procedure TForm1.ShowForm(Form: TForm); > var > F: TForm; > begin > F:= TForm.Create(Application); > F.ShowModal; > F.Release; > end; > > // chamando o método > ShowForm(Form2); > > > Valmir Santana > [EMAIL PROTECTED] -- <<<<< 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] ou [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