Компонент ListView

← →
Box © (2004-05-09 02:35) [0]

Подскажите пожалуйста как сделать что бы по ListView можно было перемещать (Drag&Drop) несколько выделенных иконок, а то у меня только одна перемещается (остальные на месте остаются)???

← →
Gero © (2004-05-09 08:03) [1]

{ ListView1.DragMode := dmAutomatic }

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
DragItem, DropItem, CurrentItem, NextItem: TListItem;
begin
if Sender = Source then
with TListView(Sender) do
begin
DropItem := GetItemAt(X, Y);
CurrentItem := Selected;
while CurrentItem <> nil do
begin
NextItem := GetNextItem(CurrentItem, SdAll, [IsSelected]);
if DropItem = nil then DragItem := Items.Add
else
DragItem := Items.Insert(DropItem.Index);
DragItem.Assign(CurrentItem);
CurrentItem.Free;
CurrentItem := NextItem;
end;
end;
end;

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

Компонент ListView Найти похожие ветки