pb parcourir les composants d'une ficheRésolu

Question

Bonjour, g un pti soucis car je suis un d&#233;butant en delphi si vous pouvez m'&#233;clairer ....



dans mon appli je cr&#233;&#233; dynamiquement des TTabSheet  contenant chacun unTPanel identique.

il est possible de glisser deposer une image dans ce panel  qui devient le parent de cette image.



Je voudrais pouvoir enregistrer dans un fichier texte l'ensemble de mes composant du style :

    -pour un TTabsheet  j'&#233;cris dans mon fichier  [zone] = //caption de mon TTabsheet

    - ensuite pour chaque image  je voudrais ecrire [&#233;l&#233;ment] = //en fonction de l'image d&#233;pos&#233;e



or dans mon programme j'arrive pas &#224; parcourir les &#233;l&#233;ments de chaque onglets ... 

le code est du style:



procedure TForm1.enregistrerlaconfiguration1Click(Sender: TObject);

var  F:TextFile;

     i,j:integer;

begin

      i:=0;

      j:=0;

      AssignFile(F,'config.ini');

      Rewrite(F);



       while  i<>PageControl1.ActivePageIndex do //on se positionne sur le 1er onglet

       begin

         PageControl1.SelectnextPage(false);

       end;

       with PageControl1 do

       while i //chaque page d&#233;limite une zone...



             
Writeln(F,'[Zone] = '+PageControl1.ActivePage.Caption);

              Flush(F);

              inc(i);

              
For j:=0 to PageControl1.ActivePage.Components[i-1].ComponentCount-1 do

                   begin

                  
if PageControl1.ActivePage.Components[i-1].Components[j] is TImage then

                    
Writeln(F,'[&#233;l&#233;ment] =
'+PChar(PageControl1.ActivePage.Components[i].Components[j].ClassType));

                   end;



              PageControl1.SelectNextPage(true);

          end;

      CloseFile(F);

end;



si quelqu'un a plus ou moins capt&#233; ce que je voulais faire , merci  de m'indiquer mes erreurs 

bonne prog a tous


Temple0fb00m

templeofboom · Accepted Answer

g trouv&#233; le pb en fait ca venait de la cr&#233;ation de mes TImage en effet
ils etaient cr&#233;&#233;s sur la fiche et non sur le TTabsheet ce qui fait que
la  valeur ComponentCount du TTabsheet etait &#233;ronn&#233;...



merci encore Japee pour ton aide

Temple0fb00m

japee · Answer

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 &#224; recueillir les donn&#233;es.

Et un bouton pour cliquer...



C'est juste pour d&#233;montrer qu'on peut r&#233;cup&#233;rer les propri&#233;t&#233;s de
chaque image, en fonction du TabSheet (et du Panel) dont elle est
l'enfant.



Il serait sans doute plus &#233;l&#233;gant et plus rapide de lister les
composants &#224; partir des Images contenues dans le Form, puis de remonter
vers leur parent et "grand parent".

Mais il faudrait diff&#233;rencier les Images concern&#233;es d'autres images &#233;ventuelles, par un Tag par exemple.



procedure TForm1.Button1Click(Sender: TObject);

var i, j, k: Integer;

{ci-dessous 3 variables pour la clart&#233; 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&#233;cup&#233;rer les propri&#233;t&#233;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&#233;cup&#233;rer les propri&#233;t&#233;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&#233;cup&#233;rer les propri&#233;t&#233;s de cette Image

                  // with AnImage do...

                 
Memo1.Lines.Add(AnImage.Name);

                  Break;

                end;

            Break;

          end;

    end;

end;



Bonne prog' 



japee

templeofboom · Answer

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

templeofboom · Answer

ca passe qd j'associe un integer a la valeur de componentcount &#233;trange....

Temple0fb00m

templeofboom · Answer

de plus mes TTabsheet et mes TPanel sont cr&#233;&#233; dynamiquement ca peu poser un probl&#232;me?

Temple0fb00m

japee · Answer

Ca d&#233;pend un peu de quelle mani&#232;re tu les cr&#233;es, tes composants.



Es-tu s&#251;r que chaque Image a bien un Panel comme parent, et que ce Panel lui-m&#234;me est bien l'enfant d'un TabSheet ?



Sinon, j'ai fait un petit bout de code afin de tester.

Je cr&#233;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 &#231;a au clair et je le poste, mais &#231;a va finir par ressembler &#224; un didactitiel, lol. 



Bonne prog' 



j@pee

japee · Answer

Oups, pas rafra&#238;chi la page...



Content pour toi, TempleOfbOOM 



Enfin, maintenant que je suis branch&#233; sur le sujet, n'h&#233;site pas si tu as un probl&#232;me...



Bonne prog' 



j@pee

templeofboom · Answer

merci japee t un chef  ... 

Temple0fb00m

Pb parcourir les composants d'une fiche

8 réponses

Votre réponse

Discussions similaires