Form auf einer Kreisbahn kreisen lassen

[Helmi]

Hallo,

Danke für deinen Code.

Ich hab ihn etwas umgestellt:

Delphi-Quellcode:

  for i := 360 downto 0 do
    begin
      Form1.Left  := Trunc(Mittelpunkt.X + (cos(DegToRad(i)) * Radius));
      Form1.Top   := Trunc(Mittelpunkt.Y + (sin(DegToRad(i)) * Radius));

      sleep(50);
    end;