Delphi Kreisförmige Bewegung eines Objektes

Thema durchsuchen

Ansicht

Themen-Optionen

Kreisförmige Bewegung eines Objektes

Ein Thema von ErdNussLocke · begonnen am 12. Sep 2006 · letzter Beitrag vom 13. Sep 2006

Vorheriger Beitrag

Nächster Beitrag

TStringlist

Registriert seit: 1. Dez 2003
360 Beiträge

Turbo Delphi für Win32

Re: Kreisförmige Bewegung eines Objektes

12. Sep 2006, 17:59

event. geht es ja so:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

  // Radius des Einheitskreises = 40 Dots

  X0 := Label1.left - 40;

  Y0 := Label1.top;

  Grad := 0;

  Timer1.Enabled := true

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  inc(Grad,2);

  Label1.left := X0 + round (cos(2*Pi/360 * Grad) * 40);

  Label1.Top  := Y0 - round (sin(2*Pi/360 * Grad) * 40);

  if Grad = 360 then Timer1.Enabled := false

end;