, , , , ______________________1031

       -  -
 ,   OnKeyPress    (  -
 OnKeyDown    OnKeyUp  ) ,   -
,     . ,    Alt 
OnKeyPress      .    -
 Ctrl  OnKeyPress     , 
  .

  Key     ,   -
,       ,   -
  .



1.   ,        
Editi - ,  .   ,   Editi
   OnKeyPress:

Set <char, '0', '9'> Dig;

Dig  '0'  '  '2'  '3'  '4'  '5'  '6'  '7'  '8'  '9';

it ( ! Dig.Contains(Key))
Key = 0;

           
    .

2.      OnKeyPress  -
    ,   ,    -
  :

Key = UpCase(Key);

      .  
      ,    -
( .   14.10  14):

Key = AnsiUpperCase(Key) [1];

OnKeyUp___________________________________________

      
 TWinControl



enum Classes I ( ssShift, ssAlt, ssCtrl, ssLeft, ssRight,
ssMiddle, ssDouble };

typedef Set<Classes_1, ssShift, ssDouble> TShiftState;

typedef void (_closure *TKeyEvent)(System::TObject* Sender, Word &Key,

Classes::TShiftState Shifts-
property TKeyEvent OnKeyUp



 OnKeyUp ,     ,  -
     ,   
, ,  Shift, Alt  Ctrl.

   ,    Sender, -
  ,    ,   Key 
Shift.  Key   ,  . 