再问 如何根据类名创建类实例？

[hellojw]

需要将用RegisterClasses将类注册，然后用FindClass将类找出创建。
type
TMyFormClass = class of TForm;

RegisterClasses([TForm1]);

...
var
myClass : TMyFormClass;

myClass := TMyFormClass(FindClass('TForm1'));
with myClass.Create(Application) do
ShowModal;


以上是“ chechy(我爱洁洁) ”在一个同样的问题中提出的方法，可是我测试的时候在运行到myClass := TMyFormClass(FindClass('TForm1'));出错“找不到类名”

[hellojw]

to: chechy(我爱洁洁)

RegisterClasses([TForm1]);
是先于FindClass执行。

我的过程代码如下：

procedure TFMain.mnAboutSysClick(Sender: TObject);
var
myClass : TMyFormClass;
begin
RegisterClasses([TFtry]);
//showmessage('ss');
myClass := TMyFormClass(FindClass('TFtry'));
myClass.Create(Application).Show;

end;

[chechy]

请确认
RegisterClasses([TForm1]);
是否先于FindClass执行。
如果不是，那么肯定是要出错的。