Listview Items verschieben

[mimi]

Habs geschaft mit diesem code können zwei elemente vertauscht werden es lag an Assign den hatte ich nicht hinzugefügt !

Delphi-Quellcode:

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  alt,neu,neu1:TListItem;
begin
  if ListView1.Selected <> NIl  then begin
    neu1:=TListItem.Create(listview1.Items);
    neu:=ListView1.GetItemAt(x,y); alt:=ListView1.ItemFocused;

    neu1.Assign(neu);
    ListView1.Items[neu.index]:=ListView1.Items[alt.index];
    ListView1.Items[alt.Index]:=neu1
    //    listview1.Selected:=neu;
     end;

end;