Преобразование типа объекта

[Oburec]

Как узнать есть ли в иерархии объекта какой-либо класс? Оператор is возвращает true, только если явно совпали типы...

[s.Creator]

returns True if object is an instance of the class denoted by class or one of its descendants

is возвращает True если объект этого класса или его наследник

Label1 is TLabel = True
Label1 is TComponent = True
Label1 is TObject = True

[evg_m]

if label1.inherited(Tcomponent)

[Oburec]

Сообщение от s.Creator

is возвращает True если объект этого класса или его наследник

Label1 is TLabel = True
Label1 is TComponent = True
Label1 is TObject = True

хз, у меня is не сработало спасло вот это
components[i].InheritsFrom(tcontrol)

Сообщение от evg_m

if label1.inherited(Tcomponent)

ага, или так

[s.Creator]

Сообщение от Oburec

хз, у меня is не сработало спасло вот это
components[i].InheritsFrom(tcontrol)

странно у меня и в Delphi 7 и в 2009 работает