Create a form object from its class type

[Bruce44]

Hello
I have two different forms type TForm 1 and TForm2.
I would like to create one form object of each form type with a generic procedure
Exemple :
LoadForm (TForm1);
LoadForm (TForm2);

And the procedure :
procedure LoadForm (a_form_class : TClass);
var
   o_form : TForm;
begin
   o_form := TForm(a_form_class).Create (Form_Main);
end;

But this crashes ! It may be not the correct syntax ! An idea ? Another suggestion ?

[howardpc]

No need to reinvent the wheel.
Such a routine already exists in the Forms unit,

Code: Pascal  [Select][+][-]

1. procedure TApplication.CreateForm(InstanceClass: TComponentClass; out Reference);

You call it thus:

Code: Pascal  [Select][+][-]

1. Application.CreateForm(TForm1, Form1);
2. Application.CreateForm(TForm2, Form2); etc.

[Bruce44]

Of course ! So obvious
Thanks