Ich habe auch mal ein wenig mit dem Projekt im Anhang rumgespielt, bei rausgekommen ist sowas hier.
Alles total frei plazierbar, ich glaube das Resultat ist wie in #11 von Uwe.
Delphi-Quellcode:
procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
If Assigned(ListView1.Selected) then
ListView1.Selected.SetPosition(Point(X,Y));
end;
procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
Accept := Sender = Source;
end;
Was mir Einfällt wäre es über ein TImage laufen zu lassen anstelle einer ListView.
Dann ein Raster vorgeben und eine Art Schiebe-Puzzleteil automatik wirken lassen.