1026_____________________________________________ 15

        OnDragDrop :

void_fastcall TFormI::ListBoxIDragDrop(TObject *Sender,

TObject *Source, int X, int Y)
{

TListBox *S = (TListBox *)Source;

((TListBox*)Sender)->Items->Add(S->Items->Strings[S->ltemlndex]) ;

S->Items->Delete(S->ltemlndex);

)

       ,  
-.     ,  -
    ,     , 
  ((TListBox*)Sender)  S     ListBoxl. -
       (  
,         ,   -
  ).

      OnDragDrop    -
.

 ,  ,   . 
      .

2.      -   -
    ,      (-
,     -   -
 ),        -
.

      DragMode.  dmManual. 
   .

        OnMouseDown :

void _fastcall TFormI::ListBox3MouseDown(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)
(

if ((Button == mbLeft) && < - >)
((TControl*)Sender)->BeginDrag(false,5);

}

     ,     -
 ,       - ,   -
        (
   ).   BeginDrag 
.       false  5, 
         5
.

      OnMouseDown    -
.

         -
 .

3.      Drag&Drop  -
    4   4.4.

OnDragOver________________________________________

   ,     
   