Suche Control mit Drag&Drop-Eigenschaften wie Win-Desktop

[Uwe Raabe]

Sollen die Items in die Grid-Positionen einrasten, muss man den Code etwas ergänzen:

Delphi-Quellcode:

var
  CurrentItem: TListItem;
  lvw: TListView;
begin
  if Sender = Source then begin
    lvw := TListView(Sender);
    CurrentItem := lvw.Selected;
    if CurrentItem <> nil then begin
      CurrentItem.SetPosition(Point(X, Y));
      lvw.Arrange(arSnapToGrid);
    end;
  end;
end;