Listview-Items zu anderen Komponten draggen

[Bummi]

bei DragMode=dmAutomatic beispielsweise so

Delphi-Quellcode:

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  TListBox(Sender).Items.Add(TListView(Source).Items[TListView(Source).ItemIndex].Caption)
end;

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