大家帮忙啊，能不能根据 类名（classname） 动态创建对象 或者获得对象类型（classtype）？？？

[sxf_zero]

能不能根据 类名（classname） 动态创建对象 或者获得对象类型（classtype）？？？

[alexanda2000]

用类引用就可以啊.
procedure TForm1.CreateWinControl(AWinClass:TWinControlClass,AParent:TWinControl,ATop,ALeft:Integer);
begin
with AWinClass do
Create(Self);
Parent:=AParent;
Top:=ATop;
Left:=ALeft;
end;

end;

procedure TForm1.Button1Click(Sender:TObject);
begin
CreateWinControl(TButton,Self,30,30);
end;
手头上没有Delphi,上面的代码还没试过.

[cxj1976]

with TClassName.Create(Self) do
begin
Parent:=Self; //如果是可视控件,必须有这句,否则无法显示
Name:='ControlName;
Top:=10;
Left:=10;
end;

[aiirii]

function TfrmMain.CreateFormByClassName(const ClassName: string): TCustomForm;
var
AClass: TPersistentClass;
begin
AClass := GetClass(ClassName);
if AClass=nil then exit;
Result := TComponentClass(AClass).Create(Application) as TCustomForm;
//或 Result := TCustomForm(TComponentClass(AClass).Create(Application));
end;

用到 GetClass, RegisterClass

http://gjianfu.tlw.cn/6682.htm

http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=75718