Einzelnen Beitrag anzeigen

Benutzerbild von markus5766h
markus5766h

Registriert seit: 5. Mär 2009
Ort: Hamburg
569 Beiträge
 
Delphi XE8 Professional
 
#2

Re: Designer Programmierung, Felder verschieben

  Alt 16. Jun 2009, 16:21
Hallo,
ob Du die Raster-Parameter an Sys-Command übergeben kannst, weiß ich nicht,
ich habe mir für so etwas ein array von TPoint angelegt und die Positionen
eines (virtuellen) Rasters gespeichert.
Beim loslassen der gezogenen Elemente habe ich dann per Schleifen den
nächstgelegenen TPoint gesucht (z.B. mit einer Toleranz von 2 Pixeln, wenn
das Raster 8 Pixel beträgt) und lasse dann das Element am TPoint "einrasten".
Ist vielleicht nicht die beste Lösung, aber funktioniert.

Hab' mal 'ne Unit als Beispiel angehangen, im Ereignis > W2MouseUp(.....
wird ein Spielstein an einer Spielfläche "eingerastet".
Angehängte Dateien
Dateityp: pas unit1_113.pas (5,5 KB, 7x aufgerufen)
Markus H.
  Mit Zitat antworten Zitat