请教：在ListView中怎样可以任意拖动这些图标呢？多谢！

Question

请教：ListView控件的ViewStyle为vsIcon，我想实现一个功能：可以任意拖动它里面的任意Item，鼠标拖动它到哪它就到哪，就象Windows系统的桌面一样，我可以任意拖动这些图标并可以进行排列！  这种功能怎么实现呢？或者不用ListView，用别的什么方法实现呢？ （提醒：每个图标的下面都有一个标题，标题是可以修改的，这中效果跟Windows桌面是完全一样的！）

Answer 1

在DragOver事件中:
  accept:=Source is TlistView
在DragDrog事件中:
  (Source As TListView).Selected.SetPosition(Point(X,Y));
在MouseDown事件中:
  if button=mbleft then
  begin
    with sender as TListview do
    begin
      if GetItemAt(x,y)<>nil then
        begindrag(false);
    end;
  end;
添加以上三个即可