Drehe:
Delphi-Quellcode:
// ...
TBall = class(TImageSprite)
public
Winkel, Bogen, Speed: Extended;
procedure drehen;
end;
//...
procedure Ball.drehen;
begin
Ball.Winkel := 1;
Ball.Speed := 2;
//Bogenmaß ausrechnen
Ball.Bogen := (Ball.Winkel * Pi) / 180;
//neue Koordinaten setzten
Ball.X := Ball.X + cos(Ball.Bogen)*Speed;
Ball.Y := Ball.Y + sin(Ball.Bogen)*Speed;
end;
So müsste es gehen! (das Ball hab ich jetzt halt einfach mal so gewählt!)