Drag&Drop mit zwei FMX ListView

[Dilom]

Zitat von Harry Stahl:

Zitat von Kostas:

Tausend Dank Harry,
Für meinen Fall kann ich deine Demo 1:1 verwenden. Dankeschön nochmals.

P.S. Das könntest du in dein FMX Buch integrieren und ich kaufe dir gleich ein Update ab.
Gruß Kostas

Freut mich, dass es passt.

Die TListview-Komponente und einige Informationen dazu werden in meinem nächsten FMX-Buch zu Delphi 10 Seattle drin sein (Erscheinungszeitpunkt voraussichtlich Januar 2016).

Hello;

Multiselect: Listview1 > Listview2, drag and drop ok.

Delphi-Quellcode:

procedure TForm1.ListView2DragDrop(Sender: TObject;
  const [Ref] Data: TDragObject; const [Ref] Point: TPointF);
var
  Obj: IControl;
  Index, I: Integer;
begin
  Obj := ObjectAtPoint(Screen.MousePos);
  if Obj <> Nil then
  begin
    Index := GetIndexAtPos(ListView2, Point);
    if Index <> -1 then
    begin
      for I := ListView1.Items.Count - 1 downto 0 do
      begin
        if ListView1.Items[I].Data['Select'].ToString = 'OK' then
        begin
          ListView2.Items.Insert(Index);
          ListView2.Items[Index].Data['Fit'] := ListView1.Items[I].Data['Fit'].ToString;
        end;
      end;
    end;
  end;
end;

Listview1, up or down.
Listview2, up or down. how can I do it.