Delphi ListView拖放整行

Question

我对Delphi ListView的拖放系统还很陌生。我在网上找到了一个简单的解决方案，可以在ListView中拖放项目。但问题是代码只显示了拖动第一列，而我想要显示并拖动整行。

您可以在下面的图片中看到我得到了什么以及我想要得到什么。

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  DragItem, DropItem, CurrentItem, NextItem: TListItem;
begin
  if Sender = Source then
    with TListView(Sender) do
    begin
      DropItem    := GetItemAt(X, Y);
      CurrentItem := Selected;
      while CurrentItem <> nil do
      begin
        NextItem := GetNextItem(CurrentItem, SdAll, [IsSelected]);
        if DropItem = nil then DragItem := Items.Add
        else
          DragItem := Items.Insert(DropItem.Index);
        DragItem.Assign(CurrentItem);
        CurrentItem.Free;
        CurrentItem := NextItem;
      end;
    end;

end;

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

self.ListView1.DragMode := dmAutomatic;

- user558126

---

http://docwiki.embarcadero.com/RADStudio/Seattle/en/Customizing_Drag_and_Drop_with_a_Drag_Object - Sir Rufo

请参阅如何更改ListView OnDrag图像？。 - NGLN

Answer 1

我不知道如何获取所选当前行的快照，但它的拖放部分是这样的：

// you need a TDragControlObject:
  TPlainDragControlObject = class(TDragControlObject)
  protected
    function GetDragImages:  TDragImageList; override;
  End;
.....

Implementation

function TPlainDragControlObject.GetDragImages: TDragImageList;
var
  images : TDragImageList;
begin
  images := TDragImageList.create(self);
  // ToDo: add images - how the drag object will look like

  Result := images; // you can return Nil here if you want just the drag cursor with no image at all
end;

procedure TMainForm.lvStartDrag(Sender: TObject;
  var DragObject: TDragObject);
begin
  If Sender = ListView1 Then Begin
    DragObject := TPlainDragControlObject.Create(Sender as TListView);
  End;
end;

你可以创建一个位图，手动在其中绘制项目。

或者这里有如何截取整个列表视图（或任何其他组件）的屏幕截图。 你可以找出项目的坐标，并从屏幕截图中将其复制到新的位图中。

- NickSoft