Đi qua một lớp học như một tham số của một thủ tục trong Delphi XE

Question

những gì tôi cần làm là một cái gì đó như thế này:

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

Tôi đã làm điều này cho tất cả các hình thức tự động tạo ra:

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

gì tôi sẽ làm thủ tục bên trong A phức tạp hơn, nhưng vấn đề nằm trong cách tạo ra biểu mẫu hơi chung chung. Có lẽ một cái gì đó với @ nhà điều hành ... tôi thực sự không biết.

Cảm ơn mọi đề xuất!

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

gì bạn đang yêu cầu cơ bản là những gì TApplication.CreateForm() không, ví dụ:

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

Bạn có thể bắt chước mà không gọi TAppliction.CreateForm() như thế này:

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

... 

begin 
    A(TForm1); 
end;