, , , , _______________________1029

    ,      OnExit.  -
  OnEnter  ,      OnEnter
 ,   .      
  ,     OnExit ,   OnE-
xit  ,    OnEnter  .

OnExit

      
 TWinControl



typedef void ( closure *TNotifyEvent)(System::TObject* Sender);

property Classes::TNotifyEvent OnExit



 OnExit      ,   
   .      
    .

  ActiveControl  ,   
OnExit.

   ,    -
, ,   ,  OnExit    -
,      .   -
  OnEnter.        -
      ,    -
.

,      -
,    OnEnter.

OnKeyDown

      
 TWinControl



enum Classes I { ssShift, ssAlt, ssCtrl, ssLeft, ssRight,
ssMiddle, ssDouble );

typedef SeKClasses_1, ssShift, ssDouble> TShiftState;

typedef void ( closure *TKeyEvent)(System::TObject* Sender,

Word &Key, Classes::TShiftState Shifts-
property TKeyEvent OnKeyDown



 OnKeyDown ,     ,  -
   ,    -
, ,  Shift, Alt  Ctrl.

   ,    Sender, -
  ,    ,   Key 
Shift.  Key    .   -
-     API Windows.   
   Key    14   14.1.  