Heya,

habe schon ewig nichts mehr mit Delphi gemacht, aber würde gerne eine kleine App ähnlich wie ein Startmenü machen, wo man eben bestimmte Icons auf einer bestimmten Fläche hin und her schieben kann. Bisher hatte ich überwiegend immer nur statische Icons gehabt und daher hab ich gar keinen Plan wie ich da überhaupt rangehen würde? Wie legt man ein Raster fest wo eine bestimmte Anzahl an Icons drauf kommt und vor allem wie kann der User hinterher die Icons per Drag & Drop (am besten noch mit ner Animation) bewegen kann wie er es gerne möchte.

Viele Grüße

Durch (IconSize + Offset(Abstand)) * Count legst du zb die Breite bzw Höhe fest und hast so den Raster (Pattern=IconSize.x/y+(offset/2)). Drag und Drop ist dann recht simpel zum umsetzen und lässt sich auch animieren, indem du zb eine abgeleitete Klasse von Timage hernimmst und ihr eine TPoint variable hinzufügst(zb moveto) und per timer die Differenz berechnest und das jeweilige Image nach MoveTo bewegst.

Hoffe das war eine Hilfe, lg

Zitat von Jonas:

Heya,

habe schon ewig nichts mehr mit Delphi gemacht, aber würde gerne eine kleine App ähnlich wie ein Startmenü machen, wo man eben bestimmte Icons auf einer bestimmten Fläche hin und her schieben kann. Bisher hatte ich überwiegend immer nur statische Icons gehabt und daher hab ich gar keinen Plan wie ich da überhaupt rangehen würde? Wie legt man ein Raster fest wo eine bestimmte Anzahl an Icons drauf kommt und vor allem wie kann der User hinterher die Icons per Drag & Drop (am besten noch mit ner Animation) bewegen kann wie er es gerne möchte.

Viele Grüße

TListview macht das alles für dich, setz Viewstyle auf vsIcon und die listitems werden als Icons angezeigt und können mit der Maus verschoben werden, wie auf dem Windows-Desktop.

Einfach und vom Hause: TListView mit ViewStyle=vsIcon
Kennst du von Windows: Der Desktop und auch im Explorer, wenn du rechts die Dateiliste in die "Bilderansicht" umstellst.

Einfach von Fremden: Da gibt es bereits fertige Komponenten, welche wie die "Kacheln" von Windows 8/10 aussehn > Metropolis UI. (DevExpress, TMS und Andere)


@IceBube: TGridPanel und seine Freunde.


Bzw.
https://www.delphipraxis.net/47251-k...rschieben.html
https://entwickler-ecke.de/topic_meh...n_97558,0.html
https://www.swissdelphicenter.ch/de/showcode.php?id=429