Как перетащить элемент ListView в другой ListView?

[Paul Hindenburg]

у меня есть форма на ней два ListView хочу из одного в другой перетащить, и чето не могу понять что не работает. И еще вопрос потом хочу сделать так: моя программа запущена два раза и между этими экземплярами программы можно было перекидывать элементы ListView. подскажите плиз

[lexaltd]

Насчёт первого вопроса
Может поможет , не знаю правильно или нет , но работает
Перетягиваем из ListView2 в ListView3

procedure TForm1.ListView3DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if Source = ListView2 then
    begin
      ListView3.AddItem(ListView2.Items[ListView2.ItemIndex].Caption,ListView2.Items[ListView2.ItemIndex]);
      ListView3.Items[ListView3.Items.Count-1].ImageIndex := ListView2.Items[ListView2.ItemIndex].ImageIndex ;
    end;
end;

procedure TForm1.ListView3DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if (Source is TListView) then
    Accept := True;
end;

[Paul Hindenburg]

Спасибо, но я уже сделал по-своему и у меня код универсальней

procedure TForm2.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  ListItem:TListItem;
begin
if Source <>Sender then
begin
ListItem :=(Sender as TListView).Items.Add;
ListItem.Position:=Point(X,Y);
ListItem.Caption := (Source as TListView).Selected.Caption;
ListItem.ImageIndex := (Source as TListView).Selected.ImageIndex;
(Source as TListView).Selected.Delete;
end else (Sender as TListView).Selected.Position:=Point(X,Y);
end;

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

end;

procedure TForm2.ListView2DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  ListItem:TListItem;
begin
if Source <>Sender then
begin
ListItem :=(Sender as TListView).Items.Add;
ListItem.Position:=Point(X,Y);
ListItem.Caption := (Source as TListView).Selected.Caption;
ListItem.ImageIndex := (Source as TListView).Selected.ImageIndex;
(Source as TListView).Selected.Delete;
end else (Sender as TListView).Selected.Position:=Point(X,Y);
end;

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

[Paul Hindenburg]

теперь вот хочется сделать перетаскивание нескольких элементов, при mutltiselect = true

[lexaltd]

Сообщение от Paul Hindenburg

теперь вот хочется сделать перетаскивание нескольких элементов, при mutltiselect = true

Может есть и другое решение:

procedure TForm1.ListView3DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  i : Integer;
begin
  if Source = ListView2 then
    begin
     for i := 0 to ListView2.Items.Count - 1 do
      begin
       if ListView2.Items[i].Selected = True then
        begin
          ListView3.AddItem(ListView2.Items[i].Caption,ListView2.Items[i]);
          ListView3.Items[ListView3.Items.Count-1].ImageIndex := ListView2.Items[i].ImageIndex ;
        end;
      end;
    end;
end;

[lordonx3]

http://www.programmersforum.ru/showthread.php?t=226224
Cхожая ситуация, вомзожно кто-то сможет помочь?