Drag&Drop Problem - TListView???

[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;

und klappt ganz gut ;)

Hoffe geholfen zu haben.
Sollte bei Dir auch funktionieren - aber ACHTUNG: Du Erstellst ein "TMyThread" in einem für "TThread"-reservierten Bereich!!! Solltest Du noch anpassen.

MfG Michael Wollert