Problem beim Umsortieren v. ListView-Items in vsIcon-Ansicht

[toms]

Hallo, ist Autoarrange auf True gesetzt?

Dann sollte mein vereinfacher Code funktionieren:

Delphi-Quellcode:

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  SelItem: TListItem;
begin
  if Sender = Source then
  begin
   SelItem := TListView(Sender).Selected;
   If assigned(SelItem) then
     TListView(Source).Selected.SetPosition(Point(X,Y));
  end;
end;