zum beispiel mit einer doppelten whileschleife:
Delphi-Quellcode:
While (Objekt.Left <> NewPos.X)
and (Objekt.Top <> NewPos.y)
do
begin
if Objekt.Left < NewPos.X
then Inc(Objekt.Left)
else if Objekt.Left > NewPos.X
then Dec(Objekt.Left);
if Objekt.Top < NewPos.Y
then Inc(Objekt.Top)
else if Objekt.Top > NewPos.Y
then Dec(Objekt.Top);
end;
Hat den Vorteil das es eine "sanfte" gleichmäßige Bewegung von Oben und Links gibt