Drag&Drop Problem - TListView???

[romber]

Zitat von m.wollert:

Meine Lösung:

Delphi-Quellcode:

  listview.Items.BeginUpdate;
  try
    Source := listview.Items[ItemFrom];
    Target := listview.Items.Insert(ItemTo);
    Target.Assign(Source);
    with TLIThread(Source.Data) do begin
      Suspend;
      ListItem := Target;
      Resume;
    end;
    Source.Free;
    If ItemFrom < ItemTo then ListView.ItemIndex := ListView.ItemIndex -1;
    Result := ListView.ItemIndex;
  finally
    listview.Items.EndUpdate;
  end;

Kontest du bitte die procedur vollständig schreiben? Ich verstehe nicht ganz, wo das Teil reinkommt