delphi - 如何判断一个TClass是否衍生自另一个？

我正在尝试做这样的事情:

function CreateIfForm ( const nClass : TClass ) : TForm;
begin
  if not ( nClass is TFormClass ) then
    raise Exception.Create( 'Not a form class' );
  Result := ( nClass as TFormClass ).Create( Application );
end;

这将产生错误“运算符不适用于此操作数类型”。
我正在使用Delphi 7。

最佳答案

首先，您应该检查是否可以将函数更改为仅接受表单类:

function CreateIfForm(const nClass: TFormClass): TForm;

并无需进行类型检查和转换。

如果这不可行，则可以使用 InheritsFrom :

function CreateIfForm(const nClass: TClass): TForm;
begin
  if not nClass.InheritsFrom(TForm) then
    raise Exception.Create('Not a form class');
  Result := TFormClass(nClass).Create(Application);
end;