58_______________________________________________Глава 1

Если данный класс не имеет предшественников (т.е. это класс TObject), то воз-
вращается NULL.

Функция ClassParent, используемая в цикле, позволяет восстановить всю
иерархию класса объекта. Следующий код заносит в список строки, перечисляю-
щие все классы, встречающиеся на пути по дереву классов от TObject до класса, на
который указывает параметр Sender.

TClass ClassRef= Sender->ClassType() ;

ListBoxl->Clear() ;

while(ClassRef != NULL)
(

ListBoxl->Items->Add(ClassRef->ClassName() ) ;

ClassRef = ClassRef->ClassParent();

)

Так, если Sender указывает на объект типа TButton, то в списке ListBoxl ока-
жется текст:

TButton

TButtonControl

TWinControl

TControl

TComponent

TPersistent

TObject

На этом мы закончим наше первое знакомство с C++. Это знакомство будет
продолжаться на всем протяжении книги, а для более глубокого изучения вы все-
гда можете воспользоваться главами 11 и 12 справочной части книги. Но и сейчас
вы уже готовы начать работать непосредственно с C++Builder и создавать свои пер-
вые приложения. Этим вы и займетесь в следующей главе.