1028_____________________________________________ 15



typedef void (_closure *TEndDragEvent)(System::TObject* Sender,

System::TObject* Target, int X,
int Y) ;

_property TEndDragEvent OnEndDrag



 OnEndDrag      -
    (   )  -
 (     ,    -
).     .

        -
.     ,   -
  ,   ,  -
-    .

 Sender     .  Target  
-,     ,  NULL,  -
  .    Y     .



void   fastcall TFormI::ListBoxlEndDrag(TObject *Sender,

TObject *Target, int X, int Y)
(
if (Target == NULL)

ShowMessage("  " + ((TControl*)Sender)->Name +
" ") ;

else

ShowMessage(((TControl*)Sender)->Name + "   " +
( (TControl*)Target)->Name) ;

)

        
   ListBox"!   ListBoxl   ListBox2.
, ,      .

OnEnter

      

 TWinControl


typedef void (_closure *TNotifyEvent)(System::TObject* Sender);

property Classes::TNotifyEvent OnEnter



 OnEnter      .  -
         .

   ,    -
, ,   ,  OnEnter    -
,       .   -
  OnExit.      
    ,    .



       ,   -
.       .   -