は、Delphi XEの手順のパラメータとしてクラスを渡す私は何をする必要があるか

Question

は次のようなものである

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

何IプロシージャーAはもっと複雑ですが、問題は多少一般的なフォームの作成方法にあります。おそらく@演算子と何か...私は本当に知りません。

ありがとうございます！

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

何を求めていることなど、TApplication.CreateForm()が何をするか、基本的である：

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

あなたはこのようなTAppliction.CreateForm()を呼び出さずにいることを模倣することができます。

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

... 

begin 
    A(TForm1); 
end;