Discussion :

[dederfred]

je reformule ma question plus simplement pour que plus de monde puisse repondre .
Est t'il possible de connaitre la descendance d'un composant ?
Par descendance je veux dire :
On admet qu’un composant à des composant enfant et je voudrai récupérer la liste des composant enfant pour sélectionner après celui dont j'ai besoin.

exemple : on a un GroupBox et à l'interrieur on met des labels
et je veux selectionner un des labels. par la méthode que je dis au dessus .


Merci d'avance

[flash_math]

Tu as la propriété controls d'un TWinControl qui te permet de lister tous les controles fenêtrés.

[dd_garion]

tu peux faire quelque chose du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var
   myComponent : Tcomponent;
begin
For i:=0 to monGroupBox.componentcount do
   begin
   myComponent := monGroupBox.componentItems[i];
   if myComponent is TLabel then
     ///traitement
   end;

Ceci sous entend que tes labels ont comme propriétaire et comme parent le groupBox (il me semble) :
--> MonLabel1.owner := monGroupBox;
--> MonLabel1.parent := monGroupBox;

[flash_math]

Le problème de componentcount et de la propriété component ne donne pas la liste des composants contenus dans un autre.

on peut faire :

Code :

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

1
2
myLabel:=TLable.create(form1);
myLabel.parent:=mygroupBox;

C'est form1 qui renverra myLabel et non myGroupBox, et pourtant le label est dans le TGroupBox.

[Dry]

Plutot d'utiliser la propriété Components, utilise plutot la propriété Controls

petit Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
procedure ListerComposant(aComposant : TWinControl);
var
  i : integer;
begin
  For i:=0 to Pred( aComposant.ControlCount ) do
  begin
    showMessage(aComposant.Controls[i].Name);
  end;
end;

Bon dev
Dry

[dederfred]

Merci beaucoup j'étais au travail désolé de vous repondre si tard je vais dessuite essayer tout cela .
Merci encore je vous tiens au courant

[dederfred]

je crée un composant Tcombobox du nom de abox .

TabPagepiece.Controls[NumTableau]

puis je réafecter un Tcontrol a un Tcombobox .

je fais un teste if avant de réaffecter le composant, mais après la fonction qui sert à faire cela m'est totalement inconnue si une personne connaitrai une facon ?

merci d'avance

[Dry]

Il est relativement difficile de comprendre ce que tu dis ...

D'après ce que j'ai compris, tu cherches à transférer ta Combo d'un composant sur un autre; si c'est le cas, ce petit bout de code devrait t'éclairer un peu

Code :

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

1
2
Panel1.RemoveControl(aCombo);
Panel2.InsertControl(aCombo);

[dederfred]

j'ai trouvé la reponse a ma derniere question :
je vous met dessuite la reponse .

je fais un teste if avant de réaffecter le composant, mais après la fonction qui sert à faire cela m'est totalement inconnue si une personne connaitrai une facon ?

Code :

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

TabPagepiece.Controls[NumTableau] is Tcombobox

La solution était l'utilisation de " IS " que je ne connaissais pas du tout dans les langages de programmation encore merci a tous .