Komponenten zur Laufzeit im Raster verschieben

[dajuhsa]

Delphi-Quellcode:

procedure Verschieben(var KomponenteXYZ:TObject; const XVerschiebefaktor,YVerschiebefaktor:Integer);
begin
//Edit: kleiner Zusatz, vielleicht meintest du ja sowas:
KomponenteXYZ.Left := KomponenteXYZ.Left div 8 * 8;
KomponenteXYZ.Top := KomponenteXYZ.Top div 8 * 8;
//^^^^^^^^^^^^
KomponenteXYZ.Left := KomponenteXYZ.Left + 8 * XVerschiebefaktor;
KomponenteXYZ.Top := KomponenteXYZ.Top + 8 * YVerschiebefaktor;

end;

meinst du so etwas
Ist doch ne ganz normale Verschiebung

Edit: Der Zusatz lässt deine Komponente eben noch am Raster einrasten, aber sonst is da nicht viel dran

mfG,
dajuhsa