1032_____________________________________________ 15

 -     API Windows.
      Key    14   14.1.
            -
   .

 Shift  ,      -
  :

	
ssShift	  Shift.
ssAlt	  Alt.
ssCtrl	  Ctrl.

  Shift,    ,  -
   .

 OnKeyUp  ,    ,
,  .    ,   Key 
 word,   char,       
.   ,  ,       
        ,    
   .



    ,     
 Shift-Y.     :

if((Key == 'Y') && Shift.Contains(ssShift)) ... ;

      Y>>,   ,      ͻ 
,       ,    Y. 
      OnKeyPress.

OnMouseDown  OnMouseUp

         -


 TControl



enum TMouseButton { mbLeft, mbRight, mbMiddle };

enum Classes_1 { ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle,
ssDouble } ;

typedef Set<Classes_1, ssShift, ssDouble> TShiftState;

typedef void (_closure *TMouseEvent)(System::TObject* Sender,
TMouseButton Button,
Classes::TShiftState Shift, int X, int Y) ;

property TMouseEvent OnMouseDown

      OnMouseUp,   -
     .    
  TMouseEvent:

property TMouseEvent OnMouseUp