Même code pour plusieurs shapes

Bonjour,

Je dois mettre plusieurs fois le meme code dans un timer pour plusieurs shapes, au fait, je veux faire disparaitre mes shapes (Shape1->Visible = false) quand l'utilisateur fait quelque chose, ça j'arrive a faire, par contre j'ai 10 shapes et je veux pas a chaque fois marquer mon test juste en changeant le nom du shape (Shape1, Shape2, Shape3, etc..).. Y-a-t-il une solution ?

Merci

Chaque Shape est une série dans ton Graph.

Tu as la possibilité d'accéder à une série par son indice dans la liste des Séries de ton Chart.

Exemple accès au shape à l'indice 1

Code:

---

1 2	TChartShape *Shape = (TChartShape *)(Chart->Series[1]);

---

tu pourrais déterminé l'indice du shape à effacé et y accéder. Ainsi tu ne répète pas ton code plusieurs fois.

Salut,
Il existe une méthode pour parcourir tous les composants, par exemple ici:

Code:

---

1 2 3 4 5 6

for ( int x=0 ; x<Form1->ControlCount ; x++) { if(Form1->Controls[x]->Name == "Edit"+IntToStr(PID)) ((TEdit*)Form1->Controls[x])->Text = "Execution thread "+IntToStr(PID)+" ID = "+ IntToStr(_threadid) +" , heure = "+ IntToStr(t.ti_hour)+":"+ IntToStr(t.ti_min)+":"+ IntToStr(t.ti_sec)+":"+IntToStr(t.ti_hund/10); }

---

le code où j'avais lancer 10 Thread avec le même code mais un numéro d'ID propre et je voulais que chaque Thread écrit dans le Edit qui lui est associé.
Tread ID PID, associé à Edit PID.

Tu peux faire de même et Tester le type de composant, son nom ou toutes les autres propriétés communes.
Attention, plus tu auras de composant, plus ta boucle de recherche sera longue.

Merci de vos réponses, pour bandit boy je vois pas du tout comment je pourrais faire ca.. Sachant que j'ai 10 Shapes..

Bonjour,

on peut utiliser la méthode "FindComponent".

Cf http://www.developpez.net/forums/sho...=findcomponent

Nicolas

Peux tu en donner un peu plus?

Etats des Shapes avant et après tes test ainsi que les conditions de tests.

Ecoute j'ai testé avec un Shape, et je me suis rendu compte que, quand on lui mettais la propriété Visible a false, si un objet y passe quand meme, il rebondit.. Au fait mon programme que j'essaie de faire, c'est le jeux météoroïde, on a une boule qui ricoche partout avec un barre en bas qui se deplace avec les fleches.. Tout ca j'ai deja fait, maintenant, j'essaye de faire des petits rectangles (C'est mes shapes) et quand la boule y tappe, elle rebondit puis le triangle disparait..
Merci

Voici mon code au ca oui qui fonctionne mais que pour le Shape7 et moi je voudrais l faire por tout les shapes au faite..

Code:

---

1 2 3 4

if(BoulePosY <= (Shape7->Top + 35)) { Shape7->Visible = false ; BouleIncrY = BouleIncrY * -1 ; }

---

Bonjour,

dans ce cas là, il est peut être plus judicieux de stocker les TShapes dans un tableau (à l'initialisation) pour ensuite y accéder plus rapidement et facilement (via leur indice).

Nicolas

Alors tu peux faire comme ca:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

for ( int x=0 ; x<Form1->ControlCount ; x++) { if(Form1->Controls[x]->Name.Pos("Shape") != 0) { if(BoulePosY <= (((TShape*)Form1->Controls[x])->Top + 35)) { ((TShape*)Form1->Controls[x])->Visible = false ; BouleIncrY = BouleIncrY * -1 ; } } }

---

Et tu exécute ce code pour un évennement d'UN Shape. Ensuite dans l'inspecteur d'évennement (tu fais F11, et tu vas dans l'onglet Evennement) tu choisis cet évennement dans tous les autres Shape.

Par exemple tu peux choisir d'exécuter l'évennement OnClick du bouton1, lors d'un click sur le bouton 2, en choisissant "Button1Click" dans l'évennement Onclick du bouton 2.

Salut !

Peut-être en mettant un peu plus de réflexion dans ce développement.

Ton problème est d'avoir sans arrêt à traiter des objets qui entrent en lice alors qu'il ne devraient plus être pris en compte à un moment de l'histoire.
Pourquoi ne pas superviser tes collisions (s'il s'agit de collisions) avec deux listes s'il s'agit de travailler sans cesse avec les mêmes 10 shapes :
- une liste pour les objets visibles
- une liste pour les objets invisibles

Code:

---

1 2	TList *Enjeu; TList *Horsjeu;

---

Pour faire disparaître un shape, l'astuce est la suivante :

Code:

---

1 2 3

Shape->Visible = false; Enjeu->Delete(Enjeu->IndexOf(Shape)); //ne sera plus pris en compte dans le traitement Horsjeu->Add(Shape); // en attendant de réintégrer le jeu

---

Pour l'analyse des objets toujours en lice, il ne restera donc plus qu'à analyser les shapes maintenus dans la liste :

Code:

---

1 2 3 4 5

for(int j = 0; j < Enjeu->Count; j++) { TShape *Shape = (TShape*)Enjeu->Items[j]; //... la suite }

---

C'est juste une idée !

A plus !