264______________________________________________ 4

 ,   ,    ,
   TControl,     -
 C++Builder.       .

     DragMode, 
       
dmManual  dmAutomatic.  dmAutomatic () -
       
   .   ,      OnMou-
seDown,      ,   -
   .   dmManual ()   ,  
    .     
    BeginDrag. ,   
      OnMouseDown,   
  .        ;

-  (  ,      
  )       BeginDrag.

, ,    ,  
       Alt   ListBoxl.  -
 DragMode      dmManual,    |
 OnMouseDown   :                                    J

void _fastcall TFormI::ListBoxlMouseDown(TObject *Sender,              1
TMouseButton Button, TShiftState Shift, int X, int Y)

{

if ((Button == mbLeft) && Shift.Contains(ssAlt))
ListBoxl->BeginDrag(false);

t

 Button   OnMouseDown , 
   ,   Shift  , 
         
 (.  4.3.1.2).    , 
      Alt.  ,    BeginD-
rag  .

     BeginDrag   false. 
,      ,    , 
       .   
     .     BeginDrag
 true,    .

   ,    .
      ,    -
 ,     crNoDrop: 0.    
 ,      , 
 ,     DragCursor.
     crDrag,     ^ .
 ,      DragCursor -
 ,    ,    .

   ,    ,
        .
         OnDragO-
ver,       , -
  .     ,   -
     ,    ,
  false     Accept.  -
    true,     
.    ListBoxl  , ,  :