Paso de una clase como un parámetro de un procedimiento en Delphi XE

Question

lo que tengo que hacer es algo como esto:

procedure A(type_of_form); 
var form: TForm; 
begin 
    form := type_of_form.Create(application); 
    form.showmodal; 
    freeandnil(form); 
end; 

Hice esto para cada forma creada dinámicamente:

form1 := TForm1.Create(application); 
form1.showmodal; 
freeandnil(form1); 

Lo que lo hará dentro del procedimiento A es más complejo, pero el problema reside en cómo hacer que la creación de la forma sea algo general. Quizás algo con @operador ... realmente no lo sé.

¡Gracias por cualquier sugerencia!

Answer 1

procedure Test(AMyFormClass: TFormClass); 
var 
form: TForm; 
begin 
    form := AMyFormClass.Create(Application); // you can use nil if you Free it in here 
    try 
    form.ShowModal; 
    finally 
    form.Release; // generally better than Free for a Form 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Test(TForm2); 
end; 

Answer 2

Lo que estamos pidiendo es básicamente lo TApplication.CreateForm() hace, por ejemplo:

Application.CreateForm(TForm1, form1); 
form1.ShowModal; 
FreeAndNil(form1); 

Puede imitar que sin llamar TAppliction.CreateForm() así:

procedure A(AClassType: TFormClass); 
var 
    form: TForm; 
begin 
    form := AClassType.Create(Application); 
    try 
    form.ShowModal; 
    finally 
    FreeAndNil(form); 
    end; 
end; 

... 

begin 
    A(TForm1); 
end;