 -  _____57

   TButton,  Sender     TButton.

 ClassName     - 
     . , 

if (String(Sender->ClassName()) == "TLabel")

    ( )  
  TLabel.

          ClassNameIs,
   TObject :

bool   fastcall ClassNameIs(const AnsiString string);

   true,       -
 string.        -
 :

if (Sender->ClassNameIs("TLabel"))

        ,  -
    -,   
 .        -
  ScaleBy,    TWinControl.   -
  ,    Sender,    -
 TWinControl (,  TLabel,    TWinControl), 
 ScaleBy  .      
,     ,   .

,   ,      
  ,   ,   
   ,       -
. , ,    ScaleBy,  ,  
   TWinControl.

      InheritsFrom,  
 TObject , ,    . 
 :

bool _fastcall InheritsFrom(TClass aClass);

  true,       
aClass,    .     TClass, -
    _classid:

_classid(classType)

      , , TWin-
Control.

 , ,    ,   
Sender,  TWinControl,   :

if (Sender->Inheri'tsFrom(_classid (TWinControl) ) )

        ScaleBy
       -
:

if (Sender->InheritsFrom(_classid(TWinControl)))
((TWinControl *)Sender)->ScaleBy(11,10);

    ClassParent,    TObject, 
,      . 
 :

TCiass _fastcall ClassParent()