Herausfinden ob Classe einen bestimmten Vorfahren hat?

[Sharky]

Hai ihr,

kann ich relativ einfach herausfinden ob eine Klasse (z.B. ein Label) von einer bestimmten Klasse abgeleitet wurde?
Dabei geht es aber nicht um den direkten Vorfahren. Diesen würde ich ja mit .ClassParent herausfinden.

Beispiel:

TLabel ist von TCustomLabel abgeleitet.
TTNTLabel ist von TTntCustomLabel und dieses von TCustomLabel abgeleitet.

Ich möchte nun alle Componenten auf meiner Form durchgehen und wissen welche letztendlich von TCustomLabel abstammen.
Es müssten mir also alle TLabel und TTntLabel zurückgegeben werden.

[Bernhard Geyer]

Wie wärs einfach mit der is-Abfrage

Delphi-Quellcode:

if MyTNTLabel is TCustomLabel then ...

[Sharky]

Zitat:

Zitat von Bernhard Geyer

Wie wärs einfach mit der is-Abfrage...

Uff.
Ich bin davon ausgegangen das is nur den Typ der Klasse selber prüfen kann und nicht auch den Vorfahren.
Ich danke Dir.