56_______________________________________________ 1

 -  ,    ,   
,   .     
 .         , 
        .

      ,  -
    .  Sender,    
,      C++Builder  TObject *Sender, ..
     TObject.  TObject,     
 15.2  15,       C++Builder.
      ,      
 .     -   
       Sender   -
,     . , ,   -
,      ( Caption)  Labell -
 :     ....  ,  
    ,    Name.   ,  
    15.2  15,   , -
     TComponent.       
   Sender.      :

Labell->Caption = "    " +

( (TComponent *)Sender)->Name;

 ((TComponent *)Sender)    
Sender       TComponent.      
    Name,   .  -
     : , ,   .., 
      TComponent.

         -
,           
Sender     ,      -
 .  , ,   :

TComponent *0bj = (TComponent *)Sender;

11->11="    " + Obj->Name;

      Obj    -
  TComponent        
    ,    Sender.   -
 Obj        .

,       Sender  ,
  -,       
,    . ,     
 ,     Sender,   -
        TWinControl (" "  -
   ),          -
 TWinControl     ScaleBy. 
   :

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

       ,  
  Sender.       ClassName,
   TObject 

ShortString   fastcail ClassName();

 ClassName    ShortString,  -
  . , 

Labell->Caption = Sender->ClassName();