J jsxjd Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-22 #3 大致如下: with TEdit.create(slef) begin parent:=self; visible:=true; left:=10; top:=100; width:=100; height:=20; ....... end
大致如下: with TEdit.create(slef) begin parent:=self; visible:=true; left:=10; top:=100; width:=100; height:=20; ....... end
Z zhouth Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-22 #4 加载的提法不好。我的意思是在运行时刻确定类的名字并实例化。
X xiaoyin Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-22 #5 var aClass : TClass;//声明一个类引用类型的变量 begin aClass := nil; Aclass := TOjbect;// Aclass可以是TObject或者任何他的子类 with aClass.create do ........ end;
var aClass : TClass;//声明一个类引用类型的变量 begin aClass := nil; Aclass := TOjbect;// Aclass可以是TObject或者任何他的子类 with aClass.create do ........ end;
鲁 鲁小班 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-25 #6 在Delphi中叫做类引用:Class of 一般是这样定义的: TMyClassClass = class of TMyClass; TMyClass为一个具体的类。 然后可以这样声明: var FMyClassClass: TMyClassClass; 这样给它赋值: FMyClassClass := 从TMyClass继承的类,包括TMyClass; 最后就可以创建一个实例了: FMyClassClass.Create;
在Delphi中叫做类引用:Class of 一般是这样定义的: TMyClassClass = class of TMyClass; TMyClass为一个具体的类。 然后可以这样声明: var FMyClassClass: TMyClassClass; 这样给它赋值: FMyClassClass := 从TMyClass继承的类,包括TMyClass; 最后就可以创建一个实例了: FMyClassClass.Create;