Delphi XE bir prosedürün bir parametre olarak bir sınıf geçme ı yapmanız gerekenler

Question

böyle bir şeydir

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

Ne ben A prosedürü daha karmaşıktır, fakat problem formun oluşturulmasını biraz genel hale getirme konusundadır. Belki de @ operatörüyle ilgili bir şey ... gerçekten bilmiyorum.

Herhangi bir öneriniz için teşekkürler!

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

Böyle TAppliction.CreateForm() uğramadan bu taklit edebilir:

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

Ne soruyorsun, örneğin TApplication.CreateForm() gelmez temelde ne

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

... 

begin 
    A(TForm1); 
end;