为何 GetClass 找不到我已有的类,各位友人进来看看。

Question

为何 GetClass 找不到我已有的类。
多在一个窗体中调用另外一个类，类名为tfrmtest,但在调用过程中总是提示找不到此类。
调用代码如下：
uses Unit2; --Unit2 是tfrmtest 单位文件。procedure TForm1.Button1Click(Sender: TObject);
var
  classname :string;  
  frmStudent:tform;
begin
  ClassName := 'Tfrm'+'Test';
  try
   if GetClass('TfrmTest') <> nil then
   begin
     frmStudent := TForm(TComponentClass(FindClass('TfrmTest')).Create(Application));
     frmStudent.Show;
   end
   else
   begin
    ShowMessage('提示无此类');
   end;
  finally
     frmStudent.Free;
  end;
end;

Answer 1

要RegisterClass先，而且注册的类是要从TPersistent继承的才行

Answer 2

Unit2.pas最后加上：initialization
  RegisterClass(tfrmtest);finalization
  UnregisterClass(tfrmtest);end.