listview选中多行拖动如何实现?
listview选中多行拖动如何实现?我现在单行实现了,多行不行
procedure TForm1.lViewDragDrop(Sender, Source: TObject; X, Y: Integer);
var
Item, oldItem: TListItem;
begin
oldItem := LView.Selected;
Item := LView.GetItemAt(X, Y);
if oldItem.Index > Item.Index then // 向前拖动
Item := LView.Items.Insert(Item.Index)
else
Item := LView.Items.Insert(Item.Index + 1);
Item.Assign(OldItem);
oldItem.Free;
end;
var
Item: TListItem;
begin
Item := LView.GetItemAt(X, Y);
if (Source is TListView) and (item <> nil) and
(item <> LView.Selected) then
Accept := True
else
Accept := False;
end;
我现在单行实现了,多行不行
怎么改进一下了?