关于TPersistentClass使用时遇到的难理解的问题？

[haozi]

var
frmSPOut :TFrmOut;
dForm : TPersistentClass;
begin
dForm := GetClass(TFrmSentOut);
frmSPOut := TFrmOut(dForm.Create).Create(self);
end;

问TFrmOut(dForm.Create).Create(self)怎么理解？这里dForm.Create创建了什么？

[newwen]

应该是dForm := GetClass(‘TFrmSentOut’);//有引号

GetClass返回指定的类（已注册），dForm.Create其实等同于dForm（GetClass已经Create了dForm，dForm.Create中什么也没做），然后用该类生成一个实例，这么做可以在窗体单元注册窗体类，而主窗体不必uses一大堆单元

[newwen]

应该是dForm := GetClass(“TFrmSentOut”);//有引号，string型
也可用FindClass

[haozi]

原代码是有引号的

我主要是不懂dForm.Create 产生了什么？ 如果只用dForm行吗？

[haozi]

为什么只用dForm不行？

[王集鹄]

//类也是一种对象

procedure TForm1.Button1Click(Sender: TObject);
var
vForm: TForm;
vFormClass: TFormClass;
begin
RegisterClasses([TForm1]); //注册类

vFormClass := TFormClass(GetClass('TForm1')); //找到一个持久性类并强制转换成TFormClass
if not Assigned(vFormClass) then Exit;
vForm := TForm(vFormClass.Create(Self));
try
vForm.Left := TForm(vForm.Owner).Left + 10;
vForm.Top := TForm(vForm.Owner).Top + 10;
vForm.ShowModal;
finally
vForm.Free;
end;

UnRegisterClasses([TForm1]); //注消类
end;

procedure TForm1.Button2Click(Sender: TObject);
var
vPersistentClass: TPersistentClass;
vForm: TForm;
begin
RegisterClasses([TForm1]); //注册类

vPersistentClass := GetClass('TForm1');
if not Assigned(vPersistentClass) then Exit;
vForm := TForm(vPersistentClass.Create).Create(Self);
try
vForm.Left := TForm(vForm.Owner).Left + 10;
vForm.Top := TForm(vForm.Owner).Top + 10;
vForm.ShowModal;
finally
vForm.Free;
end;

UnRegisterClasses([TForm1]); //注消类
end;

procedure TForm1.Button3Click(Sender: TObject);
var
vPersistentClass: TPersistentClass;
vForm: TForm;
begin
RegisterClasses([TForm1]); //注册类

vPersistentClass := GetClass('TForm1');
if not Assigned(vPersistentClass) then Exit;
vForm := TFormClass(vPersistentClass).Create(Self);
try
vForm.Left := TForm(vForm.Owner).Left + 10;
vForm.Top := TForm(vForm.Owner).Top + 10;
vForm.ShowModal;
finally
vForm.Free;
end;

UnRegisterClasses([TForm1]); //注消类
end;

[王集鹄]

dForm: TPersistentClass; //她的类型是TPersistentClass不是TFormClass