перемещение элементов Listview

[Anfall]

Доброго времени суток всем.
Помогите реализовать перемещение элементов (dragmode) в Listview в режиме колонок. Желательно чтобы можно было сразу несколько элементов перемещать.
Поиском пользовался ничего толкового не нашел.

Заранее благодарен.

[Stilet]

Перемещение откуда и куда?

[Anfall]

Сообщение от Stilet

Перемещение откуда и куда?

Внутри Listview. Ну в смысле порядок их менять.

[Anfall]

Поднимаю тему. Задача-то известная. Неужели никто не знает?

[mishka1]

// Move item 1 after item 4 
// Bewege Item 1 hinter Item 4 

function MoveListViewItem(listView: TListView; ItemFrom, ItemTo: Word): Boolean;
 var
   Source, Target: TListItem;
 begin
   Result := False;
   listview.Items.BeginUpdate;
   try
     Source := listview.Items[ItemFrom];
     Target := listview.Items.Insert(ItemTo);
     Target.Assign(Source);
     Source.Free;
     Result := True;
   finally
     listview.Items.EndUpdate;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   // Listview1.ViewStyle := vsReport; 
  if MoveListViewItem(Listview1, 1, 4) then
     ShowMessage('Moved!');
 end;