So, da haben wir den Salat! Ich scheitere schon am Drag and Drop im ViewStyle := vsIcon. Ich habe sowohl den Code der Schweizer benutzt, als auch den mit MoveSelection, leider ohne Erfolg. Die Items springen an verschiedene Stellen, aber nicht dahin, wo sie sollen. Fehlt da noch eine Einstellung?
Mein bisheriger Code-Schnipsel. (Kleines Demo-Projekt im Anhang).
Delphi-Quellcode:
// ListView-Grundeinstellungen setzen (Icon-Ansicht).
ListView1.HideSelection := false;
ListView1.
ReadOnly := true;
ListView1.ShowColumnHeaders := False;
ListView1.ViewStyle := vsIcon;
ListView1.DragMode := dmAutomatic;
// ListView füllen.
AddLvwItms(40);
// Mit oder ohne Anweisung von "API": Icons dropen an ungewollte Stellen.
SendMessage(Listview1.Handle, LVM_ARRANGE, LVA_SNAPTOGRID, 0);
Kann jemand helfen?