Discussion :

[yoghisan]

Bonjour,

J'ai créé un nouveau composant TLigne et DANS ce composant, j'ai placé le code suivant

Code :

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

1
2
3
4
 
  For i:=0 To ComponentCount-1 Do
   If Components[i] Is TLigne Then
     showmessage(TLigne(Components[i]).name);

et ca ne marche pas. Pour lui, ComponentCount=0...

Je pense (peut-être à tord) qu'il compte le nombre composant dans mon nouveau composant.

Bref, ca ne marche pas... comment faire pour que ca marche ?

[Nono40]

Pourquoi veux-tu que ce soit différent de 0 ?

Components est une propriété de du composant lui-même. Si tu ne crées pas de composant en proposant ce TFigne comme composant propriétaire alors ComponentCoutn sera perpetuellement à Zéro et Componenents vide...

Que veux-tu faire exactement ?

[yoghisan]

Ce que je veux :

L'idéal : Ca serait de compter le nombre de composant se trouvant sur le meme parent que mon composant TLigne (code inclu dans le composant).

Mais si ca compte tous les composants quelque soit le parent, je m'en contenterai...

J'espere que c'est clair ce que je dis...

[yoghisan]

Pour être plus claire (j'espère), j'ai vérifié avec l'aide:

De la manière dont j'ai codé, ComponentCount compte bien le nombre de composant qu'il y a DANS mon composant.

Ce que je veux, c'est compter le nombre de composant qu'il y a HORS de mon composant, c'est à dire, sur le nombre de composant qu'il y a sur le parent de mon composant.

[Nono40]

Il faut alors utiliser la propriété parent, attention elle n'est pas forcément à jour dés la création du composant. Il vaut mieux donc la tester :

Code :

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

1
2
3
4
If Parent<>Nil Then
  For i:=0 To Parent.ComponentCount-1 Do 
   If Parent.Components[i] Is TLigne Then 
     showmessage(TLigne(Parent.Components[i]).name);

Normalement il devrait se trouver au moins lui-même...

[Nono40]

Non, je viens de dire une bêtise... Components dépend de Owner ( propriétaire ) il faut donc compter les composants comme suit :

Code :

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

1
2
3
4
If Owner<>Nil Then 
  For i:=0 To Owner.ComponentCount-1 Do 
   If Owner.Components[i] Is TLigne Then 
     showmessage(TLigne(Owner.Components[i]).name);

Si tu veux tester la notion de parent il faut le faire en ajoutant un test :

Code :

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

If Owner.Components[i].Parent=Self.Parent Then

Attention aussi à la manière dont sont créés les composants. Il faut qu'ils soient tous sur le même propriétaire ( le Composant donné dans le create ). Du moins pour ceux que tu veux retrouver ensembles dans la boucle.

[yoghisan]

Pufff, c'etait si simple mais je ne savais pas que l'on pouvait acceder (aussi simplement au parent).

Et encore, merci beaucoup nono40...