Discussion :

[Blako_17]

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 :

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

Image1->Top=200;

par :

Code :

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

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 :

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

[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

[bakaneko]

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 :

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

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.

[TsCyrille]

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

Code :

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

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

[Blako_17]

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 :

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

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

voici mon code au complet :

Code :

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

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 ^^

[Sunchaser]

Bonjour,

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

Code :

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

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

-> es tu sur d'avoir un composant, un objet, dont le 'Name' est "Name" ?

Moi, je dirais que non ...

++

[Blako_17]

a mes je suis trop con mdr!!!

c'est une variable donc pas de "" xD

mais lool

[Gilles Louïse]

Code :

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

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

[Blako_17]

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 :

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

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....

[Sunchaser]

Bonjour,

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

Code :

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

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 ...

++

[Blako_17]

merci je vais essayer