Einzelnen Beitrag anzeigen

Benutzerbild von Harry Stahl
Harry Stahl

Registriert seit: 2. Apr 2004
Ort: Bonn
2.479 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Drag&Drop mit zwei FMX ListView

  Alt 11. Nov 2015, 23:25
Um das gezogene Objekt von der Listview1 zu ermitteln kannst Du entweder das Listview1.selected verwenden oder im DragDropEvent der Listview2 das Data.source-Objekt.

Das Element (das ListItem), über welchem Du die Maus über der Listview2 loslässt, kannst Du mit einer kleinen Hilfsfunktion innerhalb des DropEvents ermitteln:

Delphi-Quellcode:
Function GetIndexAtPos (LV: TListView; TP: TPointF): Integer;
var
  I: Integer;
  TR: TRectF;
begin
  Result := -1;

  for I := 0 to LV.Items.Count-1 do begin
    TR := LV.GetItemRect (I);

    if TR.Contains (TP) then begin
      Result := I;
      Break;
    end;
  end;
end;
  Mit Zitat antworten Zitat