Fin de l'opération glisser-déplacer

De RAD Studio
Aller à : navigation, rechercher

Remonter à Manipulation des contrôles - Index

Une opération glisser se termine lorsque l'élément est déplacé avec succès ou qu'il est relâché au-dessus d'un contrôle qui ne peut pas l'acccepter. A ce stade un événement "fin-glisser" est envoyé au contrôle à partir duquel le déplacement a commencé. Pour permettre à un contrôle de répondre quand des éléments en sont extraits, attachez un gestionnaire à l'événement OnEndDrag du contrôle.

Le paramètre le plus important dans un événement OnEndDrag est appelé Target, il indique quel contrôle, le cas échéant, accepte l'élément déplacé. Si Target est nil, cela signifie qu'aucun contrôle ne l'accepte. L'événement OnEndDrag comprend aussi les coordonnées du contrôle de réception.

Dans l'exemple VCL suivant, une boîte liste de fichiers gère un événement "fin-glisser" en mettant à jour sa liste de fichiers.



 procedure TFMForm.FileListBox1EndDrag(Sender, Target: TObject; X, Y: Integer);
 begin
   if Target <> nil then FileListBox1.Update;
 end;



 void __fastcall TFMForm::FileListBox1EndDrag(TObject *Sender, TObject *Target,   int X, int Y)
   if (Target)
     FileListBox1->Update();
 };



Voir aussi