BALLE QUI REBONDIT

Signaler
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
-
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
-
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

Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
2
Au lieu de mettre Form1.Width et Form1.Height, utilise Form1.ClientWidth et Form1.ClientHeight. Ceci définit la taille de la zone utile, ce qui permet de faire rebondir Image1 exactement sur le bord sans utiliser Image1.Height*2 :
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.