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

[Guido Eisenbeis]

So, ein Teilerfolg!

Um die Items von links oben nach links unten anordnen zu lassen, folgende Einstellung benutzen:

  ListView1.IconOptions.Arrangement := iaLeft;

[Uwe Raabe]

Warum so kompliziert? Nimm dein Demo-Projekt und ersetze den OnDragDrop-Event mit diesem Code (die LVM_ARRANGE Message im FormCreate kannst du weglassen):

Delphi-Quellcode:

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

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

[Guido Eisenbeis]

Hallo Uwe,

interessanter Ansatz!

Dein erster Code gibt dem ListView ein wenig zuviel "Freiheit", da lassen sich Items übereinander schieben. Cool, aber nicht das Gewünschte.

Dein zweiter Code sieht schon recht vielversprechend aus. Leider verschieben sich die Items nicht so wie gewünscht. Im Anhang habe ich ein Demo hochgeladen. Kannst du dir das mal ansehen?

Ich gehe jetzt ins Bett und melde mich morgen wieder. Bin schon gespannt!