Перемещение в лствью

[Лелик_1044]

есть листвью нужно
организвать драго энд дроп
Если беру допустим итем с 1-ой позиции и перемещаю на 5
Ондолжен оказтья на 5 позиции а все итемы выше 5 должны подняться до 1 позиции

[Лелик_1044]

Что никто не знает?

[Dr_Grizzly]

с драг&дроп'ом не так все просто даже я не работал с этим, а что ты пытаешься бросить в листвьювер?

[Лелик_1044]

В плане что бросить
Он находится в состоянии репорт
Я сделал чтоб можно было менять местами ветки

[LAngel]

Устанавливаем DragMode в dmAutomatic
и DragKind в dkDrag

Код: Выделить всё

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source = Sender;
end;

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  DragItem, DropItem, CurrentItem: TListItem;
begin
  if Sender = Source then
    with TListView(Sender) do
    begin
      DropItem    := GetItemAt(X, Y);
      CurrentItem := Selected;
      if DropItem = nil
        then DragItem := Items.Add
        else if DropItem.Index > CurrentItem.Index
          then DragItem := Items.Insert(DropItem.Index+1)
          else DragItem := Items.Insert(DropItem.Index);
      DragItem.Assign(CurrentItem);
      CurrentItem.Free;
    end;
end;

[Лелик_1044]

LAngel,
Попробовал тут
1)Работает не 100%Иногда отваливается при попытке перенести снизу вверх
2)При CurrentItem.Free освобождается его Data и DragItem.Data что не есть гуд