Einzelnen Beitrag anzeigen

Alex.G

Registriert seit: 30. Aug 2011
31 Beiträge
 
Delphi 7 Enterprise
 
#1

Canvas.Ellipse mit Timer parabelförmig "fliegen" lassen

  Alt 31. Aug 2011, 12:15
Delphi-Version: 7
Hallo,

ich programmiere zur Zeit ein kleines Panzerspiel.
Mit folgendem Code bewegt sie sich die Kugel etwa im 45° Winkel hoch und beim Erreichen der Hälfte der Breite direkt im 45° Winkel wieder runter.
Delphi-Quellcode:
  
if Kugel.x >= (iFeld.Width div 2) then
    Kugel.y := Kugel.y + 1
else
    Kugel.y := Kugel.y - 1;
(iFeld = TImage)

Wie kann ich die Kugel nun parabelförmig "fliegen" lassen?

Mfg
  Mit Zitat antworten Zitat