Sonnenauf- und Untergang

[Tormentor32]

Das wäre dann aber eine sehr hakelige Sonne

Besser einen Faktor einbauen, der bestimmt, in welche Richtung die Sonne sich bewegt:

Delphi-Quellcode:

var Faktor: integer;
begin
  if (image1.top < 0) 
    then 
      Faktor := 1
    else
  if (Image1.Top > 50)
    then
      Faktor := -1;
  Image1.Top := Image1.Top+(Faktor*5);
end;