请问在Delphi中怎样实现Items的上下移动，（ViewStyle为vsReport)，不是排序？？

Question

只需要大家给一点点提示，谢谢大家了

Answer 1

可以使用，看一下吧，是用鼠标拖动：
var
  ListItem:TListItem;procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
    Accept := true;
    ListItem:=ListView1.Selected;
end;procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
    InsertItem : TListItem;
begin
    if (Source is TListView) then
    begin
        InsertItem:=ListView1.Items.Insert
                    (ListView1.Items.IndexOf(ListView1.GetItemAt(X,Y)));
        InsertItem.Assign(ListItem);
        ListView1.Selected.Delete;
    end;
end;

Answer 2

再次将它提前，希望有人能够给一点提示，谢谢