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

[ePing]

Thanks

[ePing]

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

[gzmhero]

可以使用，看一下吧，是用鼠标拖动：
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;

[ePing]

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

[ePing]

谢谢