I

   ______________257

if (((TComponent *)Sender)->Name == "Editi")

,         Editi. -
   Sender,       -
 . , 

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

  10%    ,   
 .

        ,
     -     -
_^    ,      -
JB   ,        .  -
'^   ,         . -
,    ScaleBy    
, ..  ,   TWinControl,  -
.        :

^R     if (Sender->InheritsFrom(_classid(TWinControl)))

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

^         if ,    ,  -
^   Sender,  TWinControl.  
"         -
JB  .       1   1.6.6.2.
I^R       Sender    OnMouseDown  OnMouse-
^ Up  ,    , 
^    ,     
! .    OnMouseDown  OnMouseUp 
. , ,  :

      void_fastcall TFormI::EditlMouseDown(TObject *Sender,
^K              TMouseButton Button, TShiftState Shift, int X, int Y)

^B          Sender   
^  Button, Shift, X  Y.

^      Button  TMouseButton     
^  .  TMouseButton   ,   -

^  :

^      enum TMouseButton { mbLeft, mbRight, mbMiddle };

^U      mbLeft     , 
^ mbRight  ,   mbMiddle  . ,   ,
U        ,    -

   :

      if (Button != mbLeft) return;

      ,   Button   mbLeft, ..    ,

   .

      Shift  TShiftState ,   -

         .  TShiftState 
J ,   :

       enum Classes_1 { ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle,

ssDouble } ;

typedef Set<Classes_1, ssShift, ssDouble> TShiftState;

9 .764