Saber o ancestral da classe

Dá uma estudada neste exemplo:

procedure TForm1.Button1Click(Sender: TObject);
var
ClassRef: TClass;
begin
ListBox1.Clear;
ClassRef := Sender.ClassType;
while ClassRef <> nil do
begin
ListBox1.Items.Add(ClassRef.ClassName);
ClassRef := ClassRef.ClassParent;
end;
end;

Opa!

O método InheritsFrom(C) não precisa de uma instância.

if C.InheritsFrom(SuaClasse) then

Pq não funciona ? Se ele retorna false é pq oClass não é TFilho.

não funciona porque oClass não é um objeto, é uma referência para uma class TFilhoClass que tá declarada no type.

Vou testar o InheritsFrom e depois posto o resultado no fórum

Valeu pessoal

Tá certo o operador não é aplicável. E se fizer:?

também não dá porque a factory não conhece todas as classes que cria, todas as classes criadas não estão declaradas na uses.
Ela cria um monte de classes, algumas descentes de TPai e outras descentendes de TFilho.

pra fazer o que tu disse que teria que fazer, em alguns casos

Digamos o seguinte
TNeto´X´ = class(TFilho)
TFilho´X´ = class(TPai)

if oClasse = TNeto1 ...
else
if oClasse = TNeto2 ....
else
if oClasse = TFilho1

isso seria inviável

Mas se for utilizar o InheritsFrom, também não precisa colocar no uses ?
Outra opção seria usar a propriedade ClassName de oClass:
if SameText(oClass.ClassName, ´classex´) then

Class name gera o mesmo problema do oClass = TFilho, eu teria que escrever todas as classes lá, o que não dá.

Meu problema é resolvido com o inheritsFrom

Valeu, pessoal

O ´uses´ é um recurso de compile-time, InheritsFrom é run-time, pode tudo.