如何将类作为参数在函数中传递，譬如参数为Tform,可传递Tform1或者Tform2等，然后在函数中实例化。。多谢！

[xiaoxuan777]

同上。

[baguli]

我写了一个API，应该可以满足你的要求：

function CreateAndShowForm(const AOwner: TComponent; const TfrmClass: TCustomFormClass): TModalResult;
begin
with TfrmClass.Create(AOwner) do
try
Name := ClassName + IntToStr(Handle); //万一需要多次创建，保证窗口名称唯一
Result := ShowModal;
finally
Free;
end;
end;

其中，TCustomFormClass声明如下：
type
TCustomFormClass = class of TCustomForm;