Changer une propriété d'un objet en utilisant une variable pour le nom

Bonjour,

mon problème est simple :

je voudrais changer la propriété d'un objet (TImage) en utilisant une variable à la place du nom.

exemple je voudrai remplacer ca :

Code:

---

Image1->Top=200;

---

par :

Code:

---

1 2	AnsiString Name = "Image1"; Name->Top=200;

---

c'est ce que je voudrais réaliser mais ce n'est pas possible il me dit :

Code:

---

[C++ Erreur] game.cpp(336): E2451 Symbole 'Name' non défini

---

alors je me demande comment je dois procéder :?

merci de vos réponses et à bientot

Regardes du côté de la propriété Controls des TForm. Cette propriété liste tous les objets enfants de ta fiche. On peut donc faire un code comme ceci :

Code:

---

1 2 3 4 5 6 7 8

int count = Form1->ControlCount;//nombre d'objets sur la fiche. for (int i = 0;i < count;i++)//parcours des objets de la fiche { AnsiString Nom = Form1->Controls[i]->Name;//récupération du nom de l'objet   //code }

---

Nb : Ce code ne fonctionne en l'état que pour les objets qui ont pour parent ton objet TForm.

Tu peux trouver directement l'adresse du controle via son nom en faisant cela :

Code:

---

1 2 3 4

TComponent * control = FindComponent("Image1"); if (control != NULL) ((TControl *)control)->Top = 200;

---

Merci beaucoup !

je vais tester tout de suite et je vous redit.

Edit:

Alors j'ai utilisé la 2e méthode et il ne me fait pas d'erreur à la compilation mais apres la compilation lorsque le programme s'éxécute il plante et me dis :

Code:

---

Violation d'accès à l'adresse 52036858 dans le module 'vcl100.bpl'. Lecture de l'adresse 00000048.

---

voici mon code au complet :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

AnsiString _NbCoups = FloatToStr(NbCoups); DataModule7->ADOQueryCoups->Close(); DataModule7->ADOQueryCoups->SQL->Clear(); DataModule7->ADOQueryCoups->SQL->Add("SELECT Gm_BName,Gm_PosX,Gm_PosY FROM game WHERE Gm_Coups="+_NbCoups+";"); //je récupère dans la base de donnée les valeures des position d'une image DataModule7->ADOQueryCoups->Open();   AnsiString Name; Name = DataModule7->ADOQueryCoups->FieldValues["Gm_BName"]; AnsiString PosX; PosX = DataModule7->ADOQueryCoups->FieldValues["Gm_PosX"]; int _PosX= StrToFloat(PosX); AnsiString PosY; PosY = DataModule7->ADOQueryCoups->FieldValues["Gm_PosY"]; int _PosY= StrToFloat(PosY);   TComponent * control = FindComponent("Name"); if (control != NULL) ((TControl *)control)->Left=_PosX; ((TControl *)control)->Top=_PosY;

---

ma manière de coder n'est peut-être pas propre mais ce m'est pas le pb ici ^^

Bonjour,

Je dirais a première vue que le problème est ici:

Code:

---

1 2	TComponent * control = FindComponent("Name");

---

-> es tu sur d'avoir un composant, un objet, dont le 'Name' est "Name" ?
8O
Moi, je dirais que non ...

++
;)

a mes je suis trop con mdr!!!

c'est une variable donc pas de "" xD :traine: :merci:

mais lool

Code:

---

1 2 3 4 5 6

TComponent * control = FindComponent("Name"); if (control != NULL) { ((TControl *)control)->Left=_PosX; ((TControl *)control)->Top=_PosY; }

---

Et faites attention à ce code, il faut des parenthèses pour rassembler les deux instructions. Sinon n'ayez crainte, tout le monde fait des erreurs, ici ça doit être la fatigue.

À bientôt
Gilles

voila c'est encore moi

j'ai essayé de faire la meme chose pour cacher une image, j'ai utilisé le code comme ca :

Code:

---

1 2 3 4 5 6

TComponent * control = FindComponent(billenamedel); if (control != NULL) { ((TControl *)control)->visible=false; }

---

mais il me répond que visible n'est pas un membre de control....

Bonjour,

Pour agir précisément sur un TImage, tu devrais essayer de transtyper sur un TImage, comme:

Code:

---

1 2	((TImage *)control)->Visible = false;

---

ou bien passe éventuellement par un 'dynamic_cast', ou qqchose du même genre si jamais cela ne passais pas ...

++
;)

merci je vais essayer