, , , , _______________________1027

 TControl



typedef void (_closure *TDragOverEvent)

(System::TObject* Sender, System::TObject* Source,
int X, int Y, TDragState State, bool sAccept);

property TDragOverEvent OnDragOver



 OnDragOver   ,    -
        . 
,  ,  ,   .  -
 OnDragOver   ,      -
     ,    
  .     ,  
    Accept,  true. ,   
  true,      .    
   ,      -
  .     ,     
    .

     ,    -
,     ,    -
   .    ,    
OnDragOver (     )   -
   DragCursor.

 Source   ,  Sender 
 ,    Y      . -
 State  TDragState     
   .   :

 

dsDragEnter i      .

dsDragMove j      ^

dsDragLeave      .



void_fastcall TFormI::ListBoxlDragOver(TObject *Sender,

TObject *Source, int X, int Y, TDragState State, bool &Accept)
{
Accept = (((TControl*)Sender)->Name == "ListBoxl");

}

   OnDragOver   ,   -
   ,    ListBoxl.

     ,  , -
 OnDragOver,      OnDragDrop.

OnEndDrag

        -


 TControl
*