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    -
 .       .