Pb parcourir les composants d'une fiche [Résolu]
templeofboom
- Messages postés
- 41
- Date d'inscription
- vendredi 19 novembre 2004
- Dernière intervention
- 21 juin 2005
- Messages postés
- 41
- Date d'inscription
- vendredi 19 novembre 2004
- Dernière intervention
- 21 juin 2005
A voir également:
- Componentcount delphi
- Delphi componentcount - Meilleures réponses
- Les composants de la fiche - Meilleures réponses
- Composant effectuant un dégradé de couleurs sur une fiche - Codes sources - Delphi / Pascal (Graphique)
- Modifiez des composants existants sans modifier vos fiches existantes (+ didacticiel) - Codes sources - Delphi / Pascal (Composants)
- Un composant pour la transparence lors du déplacement de la fiche - Codes sources - Delphi / Pascal (Composants)
- Trouver un composant sur une autre fiche ✓ - Forum - Delphi / Pascal
- [delphi] installer des composants - Conseils pratiques - Delphi
8 réponses
Meilleure réponse
- Messages postés
- 41
- Date d'inscription
- vendredi 19 novembre 2004
- Dernière intervention
- 21 juin 2005
g trouvé le pb en fait ca venait de la création de mes TImage en effet
ils etaient créés sur la fiche et non sur le TTabsheet ce qui fait que
la valeur ComponentCount du TTabsheet etait éronné...
merci encore Japee pour ton aide
Temple0fb00m
ils etaient créés sur la fiche et non sur le TTabsheet ce qui fait que
la valeur ComponentCount du TTabsheet etait éronné...
merci encore Japee pour ton aide
Temple0fb00m
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 97 internautes ce mois-ci
- Messages postés
- 1799
- Date d'inscription
- vendredi 27 décembre 2002
- Dernière intervention
- 19 juillet 2018
Un exemple ci-dessous, utilisant un TPageControl, contenant autant de
TTabSheet que tu veux, chacun contenant un TPanel parent d'une TImage.
Un Memo sert à recueillir les données.
Et un bouton pour cliquer...
C'est juste pour démontrer qu'on peut récupérer les propriétés de
chaque image, en fonction du TabSheet (et du Panel) dont elle est
l'enfant.
Il serait sans doute plus élégant et plus rapide de lister les
composants à partir des Images contenues dans le Form, puis de remonter
vers leur parent et "grand parent".
Mais il faudrait différencier les Images concernées d'autres images éventuelles, par un Tag par exemple.
procedure TForm1.Button1Click(Sender: TObject);
var i, j, k: Integer;
{ci-dessous 3 variables pour la clarté du code, non indispensables}
ATabSheet: TTabSheet;
APanel: TPanel;
AnImage: TImage;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TTabSheet then
begin
ATabSheet := TTabSheet(Components[i]);
// on peut récupérer les propriétés de ce TabSheet
Memo1.Lines.Add(ATabSheet.Caption);
for j := 0 to ComponentCount -1 do
if Components[j] is TPanel then
if TPanel(Components[j]).Parent = ATabSheet then
begin
APanel := TPanel(Components[j]);
// on peut récupérer les propriétés de ce Panel
Memo1.Lines.Add(APanel.Name);
for k := 0 to ComponentCount -1 do
if Components[k] is TImage then
if TImage(Components[k]).Parent = TPanel(Components[j]) then
begin
AnImage := TImage(Components[k]);
// on peut récupérer les propriétés de cette Image
// with AnImage do...
Memo1.Lines.Add(AnImage.Name);
Break;
end;
Break;
end;
end;
end;
Bonne prog'
japee
TTabSheet que tu veux, chacun contenant un TPanel parent d'une TImage.
Un Memo sert à recueillir les données.
Et un bouton pour cliquer...
C'est juste pour démontrer qu'on peut récupérer les propriétés de
chaque image, en fonction du TabSheet (et du Panel) dont elle est
l'enfant.
Il serait sans doute plus élégant et plus rapide de lister les
composants à partir des Images contenues dans le Form, puis de remonter
vers leur parent et "grand parent".
Mais il faudrait différencier les Images concernées d'autres images éventuelles, par un Tag par exemple.
procedure TForm1.Button1Click(Sender: TObject);
var i, j, k: Integer;
{ci-dessous 3 variables pour la clarté du code, non indispensables}
ATabSheet: TTabSheet;
APanel: TPanel;
AnImage: TImage;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TTabSheet then
begin
ATabSheet := TTabSheet(Components[i]);
// on peut récupérer les propriétés de ce TabSheet
Memo1.Lines.Add(ATabSheet.Caption);
for j := 0 to ComponentCount -1 do
if Components[j] is TPanel then
if TPanel(Components[j]).Parent = ATabSheet then
begin
APanel := TPanel(Components[j]);
// on peut récupérer les propriétés de ce Panel
Memo1.Lines.Add(APanel.Name);
for k := 0 to ComponentCount -1 do
if Components[k] is TImage then
if TImage(Components[k]).Parent = TPanel(Components[j]) then
begin
AnImage := TImage(Components[k]);
// on peut récupérer les propriétés de cette Image
// with AnImage do...
Memo1.Lines.Add(AnImage.Name);
Break;
end;
Break;
end;
end;
end;
Bonne prog'
japee
- Messages postés
- 41
- Date d'inscription
- vendredi 19 novembre 2004
- Dernière intervention
- 21 juin 2005
Merci Japee g un pb quand mm quand j'execute le code genre un truc mystic ...
par exemple pour la boucle for j := 0 to ComponentCount -1 do
he bien j'ai le ComponentCount egal a 40 mais je
rentre jamais dans la boucle c ouf je sais mais honnetement je comprend
pas ca viendrai d'ou a ton avis?
Temple0fb00m
par exemple pour la boucle for j := 0 to ComponentCount -1 do
he bien j'ai le ComponentCount egal a 40 mais je
rentre jamais dans la boucle c ouf je sais mais honnetement je comprend
pas ca viendrai d'ou a ton avis?
Temple0fb00m
- Messages postés
- 41
- Date d'inscription
- vendredi 19 novembre 2004
- Dernière intervention
- 21 juin 2005
- Messages postés
- 41
- Date d'inscription
- vendredi 19 novembre 2004
- Dernière intervention
- 21 juin 2005
- Messages postés
- 1799
- Date d'inscription
- vendredi 27 décembre 2002
- Dernière intervention
- 19 juillet 2018
Ca dépend un peu de quelle manière tu les crées, tes composants.
Es-tu sûr que chaque Image a bien un Panel comme parent, et que ce Panel lui-même est bien l'enfant d'un TabSheet ?
Sinon, j'ai fait un petit bout de code afin de tester.
Je crée dynamiquement dans un PageControl 5 TabSheet, j'ajoute dans chacun un Panel et une Image.
Je teste mon code, tout fonctionne.
Si tu veux, je mets ça au clair et je le poste, mais ça va finir par ressembler à un didactitiel, lol.
Bonne prog'
j@pee
Es-tu sûr que chaque Image a bien un Panel comme parent, et que ce Panel lui-même est bien l'enfant d'un TabSheet ?
Sinon, j'ai fait un petit bout de code afin de tester.
Je crée dynamiquement dans un PageControl 5 TabSheet, j'ajoute dans chacun un Panel et une Image.
Je teste mon code, tout fonctionne.
Si tu veux, je mets ça au clair et je le poste, mais ça va finir par ressembler à un didactitiel, lol.
Bonne prog'
j@pee
- Messages postés
- 41
- Date d'inscription
- vendredi 19 novembre 2004
- Dernière intervention
- 21 juin 2005
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.