带有 TFormClass 的运算符 IS

Question

我有以下情况：

TMyFormClass = class of TMyForm

function IsMyClass(AClass: TFormClass);
begin
  Result := AClass is TMyForm      // Operator not applicable to this operand type
  Result := AClass is TMyFormClass // Operator not applicable to this operand type
end;

这两行都没有构建，错误是运算符不适用于此操作数类型。

我该如何做这个比较？

Answer 1

is 运算符的 lhs 应该是一个实例，但你提供了一个类。

你需要的是InheritsFrom类方法：

AClass.InheritsFrom(TMyForm);