Danke für die Lösung. Ich habe jetzt mal angefangen mit der Kollision
Delphi-Quellcode:
if (Kreis[b].y+Kreis[b].Height)>Image3.Height then //Kreis kommt von oben
Kreis[b].speedy := -Abs(Kreis[b].speedy);
und das funktioniert auch alles soweit, aber als ich versucht habe die kollision von unten und den Seiten zu schreiben, kam ich nicht mehr so ganz weiter. mit diesem code ging es nicht:
Delphi-Quellcode:
if Kreis[b].x+Kreis[b].Width>Image3.Width then //
begin
Kreis[b].speedy := -Abs(Kreis[b].speedy);
Kreis[b].speedx:= Abs(Kreis[b].speedx);
end;