TObject.ClassParent
| TQXPMenu = class (TQXPBandeauPanelPage) | Interface de TQXPMenu | Exemples de TQXPMenu |
héritée de TObject.ClassParent
| TObject = class (Object) | Interface de TObject | Exemples de TObject |
Qubes 6.0 Classe parent de la classe
Syntaxe
class function ClassParent(): TClass
Remarques
La classe racine pour ClassParent est TObject.
Exemples
// affiche la généalogie d'une instance
function AncestorsOf(o : TObject);
begin
var c := o.ClassType;
while c<>nil do begin
Print(c.ClassName);
c := c.ClassParent;
end;
end;
function AncestorsOf(o : TObject);
begin
var c := o.ClassType;
while c<>nil do begin
Print(c.ClassName);
c := c.ClassParent;
end;
end;