＋设为首页 ＋添加到收藏夹
就是说根据类的名字(一个字符串,比如TForm)
来动态地创建类的实例
比如已经动态地获得类名:
type_name:string;
.....
type_name:=TForm;
怎样创建对应于type_name的类的实例?
var
type_name : Tform
begin
type_name := TForm.Create(self);
end;
需要将用RegisterClasses将类注册，然后用FindClass将类找出创建。
type
TMyFormClass = class of TForm;
RegisterClasses([TForm1]);
...
var
myClass : TMyFormClass;
myClass := TMyFormClass(FindClass(TForm1));
with myClass.Create(Application) do
ShowModal;
----------------------------------------------------------
半亩方塘一鉴开，
天光云影共徘徊。
问渠哪得清如许？
唯有源头活水来。
不行，用类引用吧
