[BCB 5] Trouver les composants contenus dans un panel

Version imprimable

26/11/2007, 10h13
Yoh

[BCB 5] Trouver les composants contenus dans un panel

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.
26/11/2007, 11h21
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 !
26/11/2007, 11h40
Yoh

Citation:

Envoyé par 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 !

Merci pour le conseil Henderson.
Je vais tester ça.
02/06/2009, 10h17
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:

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

Salut !

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

Code:

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:

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 !

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

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:

Citation:

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!