, , , , _______________________1025

OnDblCIick__________________________________________

      

 TControl



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

_property Classes::TNotifyEvent OnDblCIick



 OnDblCIick ,     -
:          ,
     .      
    OnClick  OnDblCIick,   
     .

 Sender  ,    ,   -
        -
 (.    OnClick).

OnDragDrop

       
 

 TControl



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

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

_property TDragDropEvent OnDragDrop



 OnDragDrop      -
   .     ,   
  .  Source   -
,   Sender  ,     . 
  Y         
    .



1.        TListBox    -
        .  
  .

      DragMode.  dmAutomatic.
    .
        OnDragOver :

void _fastcall TFormI::ListBoxIDragOver(TObject *Sender,

TObject *Source,.int X, int Y,
TDragState State, bool &Accept)

{
Accept -= Source->ClassNameIs("TListBox");

}

  ,      
  TListBox.

      OnDragOver    -
.

33 .76'1