100分的小问题！高手请进！

Question

关注，收藏！！
================================================================
一颗红心向前看，为了革命两茫然，不好意思才囊尽，只能说上一点点。
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
★    我踢  我踢   我踢  我踢  我踢  我踢  我踢  我踢  我踢   ★
★    你UP  你UP   你UP  你UP  你UP  你UP  你UP  你UP  你UP   ★
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
================================================================

Answer 1

就是怎么用鼠标拖动ListView中的item（以vsReport形式显示）！

Answer 2

没人回答，我来说说。
ListView.Dragdrop事件内容
procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
    ln1,ln2: TListItem;
begin
    Ln1:=TListItem.Create(ListView1.Items);
    ln1.Assign(Listview1.Selected);
    ln2:=listview1.GetItemAt(x,y);
    ListView1.Selected.Assign(ln2);
    Ln2.Assign(Ln1);
end;
ListView的Dragover事件内容
procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
    Try
       if (Sender as TListView).Name='ListView1' then
       accept:=true;
    except
    end;
end;你看看效果，是这个意思吧
还有，别忘了ListView1.DragMode:=dmAutomatic.
ok!