listview里面的item拖动

[yuanyingtanxi]

如何在listview里面通过拖动item来实现排序呢
procedure TForm1.lvDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
//这里的代码应该怎么写，如何判断我拖动item放在什么位置（放在哪个Item上了）
end;

[yuanyingtanxi]

我的listview的ViewStyle设置为vsReport，是一个表格，我想用拖动item的方式来调整表格内容的顺序

[fbmt]

procedure TForm1.tListViewOutDragDrop(Sender, Source: TObject; X, Y: Integer);
var
SourceItem, DestItem: TListItem;
SourceIndex, DestIndex: Integer;
TempItem:TListItem;
begin
SourceItem := tListViewOut.Selected;
if Assigned(tListViewOut.GetItemAt(x,y)) then
begin
DestItem := tListViewOut.GetItemAt(x,y);
SourceIndex := SourceItem.Index;
DestIndex := DestItem.Index;
end
else begin
DestItem := tListViewOut.Items.Item[tListViewOut.Items.Count-1];
SourceIndex := SourceItem.Index;
DestIndex := DestItem.Index;
end;
if SourceIndex = DestIndex then Exit;
/////////////////////////////////////////////
TempItem:=tListViewOut.Items.Insert(DestIndex);
TempItem.Assign(SourceItem);
SourceItem.Delete;
///////////////////////////////////////////
end;