Discussion :

[Flow_75]

Bonjour,

voila, j'ai fait une form avec 64 CheckBox (pour les besoin de facilité de débeuggage)

ils se nomment de A1......A8,B1......B8,C1......C8, etc......
je voudrais savoir si je fait un AnsiString contenant A1 (par exemple)
y a une fonction pour la convertir en nom d'objet ?

par exemple :

Code :

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

1
2
3
4
5
 
AnsiString var = "A1";
{....}
var->Checked = false;
(ou bien var.Checked = false)

Merci de votre information
car me taper 64 tests ca va vite me saouler...

[Tenguryu]

Code :

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

this->Components->Name

Jette un oeil sur cette propriété

Tu peux parcourir chaque composants de ta fenetre, vérifier son nom, et agir le cas échéant

[bakaneko]

Je peux te proposer la solution suivante (peut-être pas la meilleure...)

Code :

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

1
2
3
4
5
6
7
8
9
 
AnsiString Var = "A1";//nom du controle que tu veux tester
for (int i = 0;i < ControlCount;i++)//parcours des controles de ta fiche
{
 if (Controls[i]->ClassNameIs(Var))//je vérifie si le controle trouvé est celui que je désire
 {
  //tes tests
 }
}

Voilà...

[Flow_75]

Je peux te proposer la solution suivante (peut-être pas la meilleure...)

Code :

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

1
2
3
4
5
6
7
8
9
 
AnsiString Var = "A1";//nom du controle que tu veux tester
for (int i = 0;i < ControlCount;i++)//parcours des controles de ta fiche
{
 if (Controls[i]->ClassNameIs(Var))//je vérifie si le controle trouvé est celui que je désire
 {
  //tes tests
 }
}

Voilà...

merci,

concernant les actions apres un test positif,

je voudrais par exemple, mettre checked à true.
mais le probleme, c'est que
quand j'ai trouvé le controle que je veux,
je fais :

Controle[i]->Checked = false;

mais ca ne marche pas, meme avec un cast ( (TCheckBox) )

[bakaneko]

Mea Culpa...

J'ai fait une légère erreur dans mon code. ClassNameIs permet de tester le type de l'objet, pas son nom.

Le code suivant fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
 
AnsiString Var = "A1";//nom du controle que tu veux tester
 for (int i = 0;i < ControlCount;i++)//parcours des controles de ta fiche
 {
  if (Controls[i]->Name == Var)//je vérifie si le controle trouvé est celui que je désire
  {
   ((TCheckBox *)Controls[i])->Checked = true;
  }
 }

[Flow_75]

Merci pour votre aide a tous les deux.
c'est plus rapide maintenant de cocher plein de cases de cette facon ^^.


Ciao

[kmaniche]

A condition que les composants aient le même parent.

[anthony56]

bonjour,
j'ai sensiblement le meme probleme mais moi c'est avec des form.
en fait je voudrais ouvir une form (en appuyant sur un bouton) en fonction de ce qui est sélectionné dans un CombBox.
Par exemple si Choix1 est selectionné cela ouvre Choix1_frm
si Choix2 est selectionné cela ouvre Choix2_frm
etc...
j'arrive bien a le faire mais je voudrais le faire sans

Code :

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

1
2
3
4
5
6
7
8
9
 
if(ComboBox1->Text == "Choix1")
{
Choix1_frm->Show();
}
if(ComboBox1->Text == "Choix2")
{
Choix2_frm->Show();
}

Ce code etant assez lourd pour plusieurs choix dans ComboBox.
Auriez vous une solution? j'ai essayé avec la methode donnée mais ca ne marche pas.
merci d'avance
anthony

[pottiez]

C'est parce que tu ne prend pas les composant au bon niveau, les checkBox été sur la form, or tes form ne sont pas enfant de la form, il faut que tu remplace ControlCount par Application->ComponentCount et Controls[i] par Application->Components[i]

[anthony56]

Merci beaucoup pour ta réponse pottiez !!
Ca marche nickel !! j'ai testé vite fait ca sur un nouveau projet !! Maintenant faut que j'intègre ca !!
mais merci, ca va me simplifier le travail !!

Anthony

[henderson]

Salut !

La propriété Items (TStrings) de TComboBox sait gérer deux listes : Strings et Objects.
Donc si on associe à chaque chaîne de Strings un TObject dans Objects on obient un sélecteur d'objets...
Dans une méthode, en supposant que Objects soit parfaitement remplie :

Code :

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

1
2
3
4
5
6
7
 
int n = ComboBox1->ItemIndex;
if(n >= 0)
    {
    TObject *Object = ComboBox1->Items->Objects[n];
    if(Object != NULL) ((TForm*)Object)->Show();
    }

Voir l'aide pour TComboBox::Items !

Ca reste reste vrai également pour un TListBox.

A plus !