Form auf einer Kreisbahn kreisen lassen

[jfheins]

Müsste in etwa so gehen:

Delphi-Quellcode:

for i := 180 downto 0 do
begin
  Form1.Left := Drehpunkt.X + cos(i) * Radius
  Form1.Top := Drehpunkt.Y + sin(i) * Radius;
end;

(Psedocode, ich glaub' sin und cos brauchen Bogenmaß usw.)