Chamar Form Dinamicamente..

[du_nirvana]

Bom dia,

Em minha aplicação possuo um menu dinamico, onde ao clicar em determinado botão um form é chamado, fiz a seguinte maneira:

implementation

{$R *.dfm}

// Todo o código da unit aqui

initialization

RegisterClass(TForm2);

end.

Para criar esse formulário, poderia ser usada uma função semelhante a seguinte:

function CriaForm(const NomeForm: string): TForm;

var

TClasse : TPersistentClass;

begin

Result := nil;

TClasse := GetClass(NomeForm);

if (TClasse <> nil) and TClasse.InheritsFrom(TForm) then

Result := TFormClass(TClasse).Create(nil);

end;

var

Form : TForm;

begin

Form := CriaForm('Form2');

if not Assigned(Form) then

MessageDlg('Form não registrado!', mtError, [mbOK], 0)

else

begin

Form.ShowModal;

Form.Free;

end;

end;

O problema é que sempre caio em "Form não registrado".. , alguém sabe como resolver ?

[du_nirvana]

Olá pessoal,

Consegui resolver meu problema da seguinte maneira:

with TFormClass(

FindClass(vl_nome)).Create(Self) do

try

ShowModal;

finally

Free;

end;

vl_nome é o nome da minha classe, como eu guardo em meu banco o nome do form, só preciso recuperar essa informação e adicionar um "T" no inicio, sem esquecer de colocar um

Initialization

RegisterClass(TCACE0010);

na unit do form que se deseja chamar, no meu caso o form CACE0010...

[kuroi]

cara, que visual basic é esse que eu num conheco ahahahah

movido