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