Fin de l'opération glisser-déplacer
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();
};