Discussion :

[kikica]

Explication: J'ai 10 petits "shape1" de couleur verte sur une form1, et qui sont bien alignés.
Je veux créer une petite boucle par laquelle chaque "shape" va changer sa couleur en bleu, mais un à la fois et à chaque fois qu'un shape deviens bleu, tous les autres redeviens verts.
Je suppose qu'il faut bien utiliser un timer, mais comment faire la boucle??

Merci d'avance pour toute bonne idée...

[Guile]

Salut,
Essaie ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Timer1Timer(Sender: TObject);
var i : integer;
begin
  cpt := ((cpt) mod 10) + 1;
  for i := 1 to 10 do
  begin
    if i = cpt then
      TShape(FindComponent('Shape' + IntToStr(i))).Brush.Color := clBlue
    else
      TShape(FindComponent('Shape' + IntToStr(i))).Brush.Color := clGreen;
  end;
end;

cpt étant un integer déclaré en private

[kikica]

Excellent!! Ca marche!
Je voudrais comprendre ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cpt := ((cpt) mod 10) + 1;

ceci je ne comprends pas. Que veut dire ça?
Et pourquoi déclarer "cpt" en privé global?
Merci.

[Guile]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
cpt := ((cpt) mod 10) + 1;

alors ceci est juste une petite formule pour créer un compteur qui va de 1 à 10 et qui revient à 1 ensuite et ainsi de suite.

a mod b renvoie le reste de la division de a par b donc
quand cpt = 1 :

cpt := (1 mod 10) + 1 = 1 + 1 = 2

pour cpt = 2 :

cpt := (2 mod 10) + 1 = 2 + 1 = 3

...

et pour cpt = 10 :

cpt := (10 mod 10) + 1 = 0 + 1 = 1

voilà quant à la déclaration de cpt, tu la mets où tu veux mais en tout cas pas dans le OnTimer car la valeur de cpt doit etre conservé après chaque événement OnTimer. C'est la variable qui sauvegarde le numéro de ton shape bleu j'espère que c'est clair

[j.p.mignot]

cpt est un INTEGER ( ou assimilé )
CPT = (CPT mod 10 ) +1 => cpt = reste de la division de cpt par 10 ( donc 0 à 9) auquel on ajoute 1 ( donc le résultat final dans CPT sera un entier entre 1 et 10 )

exemple
cpt=33
-> (cpt mod 10) + 1 = 3 + 1 = 4

dans ce petit code on auurait pu ajouter
var cpt : innteger; et initialiser cpt = random (1000);

[kikica]

OUUUF!! Merci, maintenant il me faut du calme pour bien digérér tout ça...
MERCIIIII.....