关于listview的问题(100分)

用何命令,让listview中的纪录,向下(向上)移一条

印象中没有现成的方法和事件。
你可以把当前条记录和上（下）条记录的值交换一下，达到向下（上）移动一条的效果

用鼠标拖动交换任意两个节点：
procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if source is TListItem then
Accept := true;
end;

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
destItem: tlistitem;
srcItem: tlistitem;
begin
srcItem := ListView1.GetItemAt(x, y);
destItem := ListView1.Items.Insert(srcItem.Index);
destItem.Assign(ListView1.ItemFocused);
caption := destItem.Caption;
ListView1.DeleteSelected;
end;