Hi @ all,
In unserem Informatikkurs machen wir gerade das Projekt "Ping Pong"
Bis jetzt haben wir geschafft den Ball zu zeichnen und zu bewegen.
Das jetztige Problem von mir ist, dass ich den Ball nicht wenden kann
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
position.X:=position.X+1;
position.Y:=position.Y+1;
refresh;
if (position.X = 2) and (position.Y = 2) then
Begin;
position.Y:=position.Y-20;
position.X:=position.X-20
end;
canvas.Brush.Color:=clRed;
Ball_zeichnen;
end;
da liegt das Problem !!! Ich weiß ja auch warum, ich kenn aber bisher keine andere Möglichkeit um die Richtung vom Ball zu ändern.
Ich wäre froh, wenn ihr mir helfen könnt.
mfg Intapper