Código
//
// procedure TfrmPrincipal.Forum1Click(Sender: TObject);
// begin
// CriaForm(TfrmForum);
// end;
procedure CriaForm(NomeForm: TFormClass);
begin
TForm(NomeForm) := NomeForm.Create(NIL);
Try
TForm(NomeForm).ShowModal;
Finally
FreeAndNil(NomeForm);
End;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009