ListView1DragDrop danach (selected=true)

[Specialwork]

Hallo Aaron,



Hier die versprochene Lösung:

Delphi-Quellcode:

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  DragItem, DropItem, CurrentItem, NextItem: TListItem;
begin
  if Sender = Source then begin
    with TListView(Sender) do begin
      DragItem    := nil;
      DropItem    := GetItemAt(X, Y);
      CurrentItem := Selected;

      while CurrentItem <> nil do begin
        NextItem  := GetNextItem(CurrentItem, SdAll, [IsSelected]);

        if DropItem = nil then begin
          DragItem := Items.Add;
        end else begin
          DragItem := Items.Insert(DropItem.Index);
        end;

        DragItem.Assign(CurrentItem);
        CurrentItem.Free;
        CurrentItem := NextItem;
      end;

      if DragItem <> nil then
        DragItem.Selected:=true;
    end;
  end;
end;

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept:=True;
end;

Gruß, Tom