Delphi Class of 类引用也就是类的类型,也可说是指向类的指针 Type TControlCls = Class of TControl;function CreateComponent(ControlCls: TControlCls): TControl;begin result:=ControlCls.Create(Form1); ...end; function CreateComponent(ControlCls: TControl): TControl;begin resu…