1030_____________________________________________ 15

           -
  .

 Shift  ,      -
  :

	
ssShift	  Shift.
ssAlt	  Alt.
ssCtrl	  Ctrl.

  Shift,    ,  -
   .



      Alt-X.    
 :

if((Key == 'X') && Shift.Contains(ssAlt)) ... ;

     Enter    
 :

if (Key ==13) ... ;



if(Key == OxOD) ... ;



if(Key == VK_RETURN) ... ;

OnKeyPress________________________________________

      
 TWinControl



typedef void (_closure *TKeyPressEvent)(System::TObject* Sender,
char &Key);

property TKeyPressEvent OnKeyPress



 OnKeyPress ,     ,  -
   .  Key    -
   Char     .   -
           .
,     ASCII (   , 
Shift, Alt, Ctrl),    .    
, , , Shift-A,     OnKeyPress, 
  Key  .  ,   ,  -
 ,   ,   
 OnKeyDown  OnKeyUp.

 ,   OnKeyPress  ,  -
          Shift.