Jak stwierdzić, czy jedna klasa TClass pochodzi od innej?

Question

Próbuję zrobić coś takiego:

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; 

To daje błąd „operator nie dotyczy tego typu argumentu”. używam Delphi 7.

Answer 1

Najpierw należy sprawdzić, czy można zmienić funkcję przyjąć tylko klasę forma:

function CreateIfForm(const nClass: TFormClass): TForm; 

i ominąć konieczność typu kontroli i odlewania.

Jeśli nie jest to posssible, można użyć 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;