Eine Drag-Operation beenden
Nach oben zu Mit Steuerelementen arbeiten - Index
Eine Drag-Operation endet, nachdem das Element erfolgreich abgelegt oder über einem Steuerelement freigegeben wurde, das keine Elemente dieses Typs entgegennimmt. In diesen Fällen wird ein OnEndDrag-Ereignis an das Steuerelement gesendet, in dem das Ziehen initiiert wurde. Damit ein Steuerelement auf das Ziehen eines seiner Objekte reagieren kann, weisen Sie seinem Ereignis OnEndDrag eine Behandlungsroutine zu.
Der wichtigste Parameter des Ereignisses OnEndDrag ist Target. Er gibt an, in welchem Steuerelement das Objekt abgelegt werden kann. Hat Target den Wert nil, wird das gezogene Objekt von keinem Steuerelement akzeptiert. Die weiteren Parameter von OnEndDrag geben die Koordinaten des empfangenden Steuerelements an.
Im folgenden VCL-Beispiel wird eine Dateiliste durch ein OnEndDrag-Ereignis aktualisiert.
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();
};