Discussion :

[Yoh]

Bonjour,

Il y a fort longtemps que je n'ai plus pratiqué du BCB, je m'y remet pour un projet et je me rend compte que j'ai perdu beaucoup d'acquis.

Sur ma Form, j'ai un panel contenant 64 TImage tous nommés Image1..Image64.
Pour assigner des images à ces TImage, je ne veux pas écrire 64 fois Image->Picture->LoadFromFile(...), mais plutot retrouver de manière dynamique ces 64 composants et les remplir via une boucle for.

J'ai creusé du côté de TComponent->FindComponent(), mais ce n'est pas concluant, je sais de mémoire que c'est possible, alors si quelqu'un pouvait m'éclairer...

Merci pour vos réponses.

[henderson]

Salut !

Il s'agit de Controls[] et ControlCount pour gérer les objets enfants (en relation à Parent) donc qu'il affiche.

Components[] et ComponentCount permettent quant à eux, de gèrer les composants (en relation à Owner) donc qu'il détruit.

A plus !

[Yoh]

Salut !

Il s'agit de Controls[] et ControlCount pour gérer les objets enfants (en relation à Parent) donc qu'il affiche.

Components[] et ComponentCount permettent quant à eux, de gèrer les composants (en relation à Owner) donc qu'il détruit.

A plus !

Merci pour le conseil Henderson.
Je vais tester ça.

[Bruiser]

Bonjour, je déterre ce vieux sujet car j'ai un problème du même ordre.
J'ai déjà utilisé Controls[] et ControlCount pour un TForm, dans ce cas tout marche bien, mais cela ne marche pas avec un TPanel.

Voici un exemple simple de ce que j'ai fait:

Code :

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

1
2
3
4
5
void __fastcall TForm1::Panel1Click(TObject *Sender)
{
TPanel *PrentPanel=(TPanel*)Sender;
Edit1->Text=PrentPanel->ComponentCount;
}

J'ai placé des checkbox et groupbox sur mon panel, mais lorsque j'exécute ce code, il m'affiche 0 dans Edit1, il ne m'indique pas le nombre de composant présent sur le Panel. Comment fair pour compter et référencer les composants sur mon panel?

A terme je souhaite l'utiliser pour pouvoir cocher ou décocher des checkbox sur le panel avec une checkbox elle aussi sur ce panel.

Merci.

PS: je suis sous BCB 6

[henderson]

Salut !

Peut-être que dans ton cas il faut décompter en profondeur (de façon récursive) :

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
 
int Decompte(TWinControl *WinControl)
{
TControl *Control;
int n = WinControl->ControlCount;
int count = n;
for(int j = 0; j < count; j++)
    {
    Control = WinControl->Controls[j];
    if(Control->InheritsFrom(__classid(TWinControl)))
        {
        n = n + Decompte( (TWinControl*)Control );
        }
    }
return n;
}

J'ai utilisé commme ceci :

Code :

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

1
2
3
4
5
 
void __fastcall TForm1::Panel1Click(TObject *Sender)
{
Label1->Caption = Decompte(Panel1);
}

Pour la deuxième partie du message ... on va y réfléchir ... !

A plus !

[Bruiser]

Merci, j'ai réussit à modifier ton code pour faire ce que je veux, et ça marche super bien!

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
void __fastcall SelectAll(TObject *Sender,TWinControl *WinControl)
{
TControl *Control;
int count = WinControl->ControlCount;
 
for(int j = 0; j < count; j++)
    {
    Control = WinControl->Controls[j];
    // Je vérifie si l'objet est une CheckBox et si son Tag est supérieur à 0.
    if(Control->ClassNameIs("TCheckBox")&&Control->Tag>0)
        {
        ((TCheckBox*)Control)->Checked= ((TCheckBox*)Sender)->Checked;
        }
    else if(Control->InheritsFrom(__classid(TWinControl)))
        {
        SelectAll( Sender, (TWinControl*)Control );
        }
    }
}

Utilisation:

void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
TCheckBox *MSender;
TWinControl *WinControl;

MSender=((TCheckBox*)Sender);
WinControl=MSender->Parent;

SelectAll(MSender,WinControl);

}

Une fois de plus, merci beaucoup henderson!