Como Criar Forms em tempo de execu��o passando string?

Question

Ol� ! Gostaria de Saber como posso criar um form em tempo de execu��o, passando como parametro uma string. EX:

CriarForm(�Form_Menu�);
.
.
.
Procedure CriarForm(formulario:String);
...
end;
assim posso criar todos os forms da minha aplica��o, somente passando o nome dos forms.
Valeu galera !

Micheus · Answer

Vc poder� fazer isto se o nome passado for o nome da classe deste form.
Vou mostrar meu procedimento para fazer isto (podem haver outros):
1) Considero que os form�s ser�o criados em tempo de execu��o. Logo, no m�ximo nas op��es de projeto estar� definido para auto cria��o apenas o form principal;
2) a procedure para a cria��o do form ficaria assim:

procedure CriaForm(StrFormClass :string);
var
  Form :TForm;
  FormClass :TPersistentClass;
begin
  try
    FormClass := FindClass(StrFormClass);
  except
    Raise Exception.CreateFmt(�Erro tentando localizar a classe do formul�rio "�s"�, [StrFormClass]);
  end;
  Application.CreateForm(TComponentClass(FormClass), Form);
  if Assigned(Form) then
  try
    Form.ShowModal;
  finally
    Form.Free;
  end;
end;

3) Para poder criar os form�s deste modo, � necess�rio que a classe esteja registrada. Ent�o alteramos o fonte do projeto da seguinte maneira:
a) acrescentamos a unit Classes na cl�usula uses;
b) registramos os form�s na inicializa��o do programa, como no exemplo abaixo:

program Projeto1;
uses
  Classes,
  Forms,
  Unit1 in �uMainForm.pas� ,
  Unit2 in �Unit2.pas� ;
begin
  RegisterClasses([TForm2]); // registra a classe do Form2
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

Para criar e mostrar o Form2 em tempo de execu��o, fariamos algo como:

procedure TMainForm.Button1Click(Sender: TObject);
begin
  CriaForm(�Form2�);
end;

Espero ter ajudado.

F�rum Como Criar Forms em tempo de execu��o passando string? #324911