BALLE QUI REBONDIT
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
-
21 sept. 2002 à 23:53
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 21 sept. 2002 à 23:53
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 21 sept. 2002 à 23:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12159-balle-qui-rebondit
https://codes-sources.commentcamarche.net/source/12159-balle-qui-rebondit
21 sept. 2002 à 23:53
if (ValTX >= (Form1.ClientWidth - Image1.Width)) then ValX := -3;
if (ValTX = 1) then ValX := 3;
if (ValTY >= (Form1.ClientHeight - Image1.Height)) then ValY := -3;
if (ValTY = 1) then ValY := 3;
Nono.