Passando una classe come parametro di una procedura in Delphi XE

Question

che cosa devo fare è qualcosa di simile:

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

Ho fatto questo per ogni forma creata in modo dinamico:

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

What i farà all'interno della procedura A è più complessa, ma il problema risiede in come rendere la creazione della forma un po 'generale. Forse qualcosa con l'operatore @ ... davvero non lo so.

Grazie per qualsiasi suggerimento!

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

Quello che chiediamo è fondamentalmente ciò che TApplication.CreateForm() fa, ad esempio:

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

È possibile simulare che senza chiamare TAppliction.CreateForm() come questo:

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

... 

begin 
    A(TForm1); 
end;