parcourir les forms et les objets d'une applications

Version imprimable

19/12/2006, 14h09
aadelfa

parcourir les forms et les objets d'une applications

salut les amis
comment parcourir toutes les forms et tous les objets et tester si un objet est un label ou speedbutton,car je veux appliquer la propriété Glyph aux sppedbuttons et la propriété caption aux labels.
et merci encore
19/12/2006, 15h06
kmaniche

Bonjour,

Commence par voir ceci

Bonne lecture. :])
19/12/2006, 15h08
kmaniche

salut,

tu as par quoi commencer ici :mouarf:

Citation:

Envoyé par kmaniche

salut,

tu as par quoi commencer ici :mouarf:

salut
j'ai fait ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
if (Controls[j]->Name == section)//je vérifie si le controle trouvé est celui que je désire
    {
          if(this->Components[j]->ClassNameIs("TSpeedButton"))
                {
               (this->Components[j])->Glyph->LoadFromFile(Valeur);
                }
          else
                {
                (this->Components[j])->Caption=Valeur;
                }
    }

mais j'ai cette erreur:
'Glyph' is not a member of 'Tcomponent'
merci pour votre aide

19/12/2006, 15h31
franckcl
Tu peux lister tous les composants d'une TForm en utilisant Components[i] avec i qui varie de 0 à ComponentCount.
exemple:
Code:

1 2 3 4 5 6 7 for (i=0;i<MyForm->ComponentCount;i++) { if ( ((String)MyForm->Components[i]->ClassName())=="TLabel") alors faire..... }
Attention, si tu as des composants dans un TPanel, il faudra faire la même chose dans le TPanel car les composants qui sont à l'interrieur sont aussi listés dans Panel->Components[i]
Franck
19/12/2006, 15h37
aadelfa
Citation:
Envoyé par franckcl

Tu peux lister tous les composants d'une TForm en utilisant Components[i] avec i qui varie de 0 à ComponentCount.
exemple:

Code:

1 2 3 4 5 6 7 for (i=0;i<MyForm->ComponentCount;i++) { if ( ((String)MyForm->Components[i]->ClassName())=="TLabel") alors faire..... }

Attention, si tu as des composants dans un TPanel, il faudra faire la même chose dans le TPanel car les composants qui sont à l'interrieur sont aussi listés dans Panel->Components[i]
Franck
salut
c'est à cette ligne de mon code que j'ai l'erreur:
this->Components[j])->Glyph->LoadFromFile(Valeur);
merci

Biensûr,

voici la solution (j'ai pas eu le temps de tester) :

Code:

1
2
3
4
5
6
 
for(int i = 0 ; i < Form1 -> ComponentCount ; i++)
  if(Form1 -> Components[i] -> ClassNameIs("TSpeedButton"))
    {
       ((TSpeedButton*)Form1 -> Components[i] -> Name) -> Glyph->LoadFromFile("chemin");
    }

Voici un exemple que j'utilise pour un composant ListItems.
Tu peux remplacer Comp par Components[i] si "i" concerne le composant dont tu veux acceder à la propriété Glyph.
Nomprop est une chaine de caractère qui contient le nom de composant. (=Champ Name)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 TListItems *TS; int i; PPropInfo PI; PI=GetPropInfo((PTypeInfo)Comp->ClassInfo() , Nomprop); if (PI!=NULL) { TS = (TListItems*)(GetOrdProp(Comp, PI)); // on peut utiliser TS comme un composant normal ShowMessage(TS->Name); }
franck

Citation:
Envoyé par kmaniche
Biensûr,

voici la solution (j'ai pas eu le temps de tester) :
Code:

1 2 3 4 5 6 for(int i = 0 ; i < Form1 -> ComponentCount ; i++) if(Form1 -> Components[i] -> ClassNameIs("TSpeedButton")) { ((TSpeedButton*)Form1 -> Components[i] -> Name) -> Glyph->LoadFromFile("chemin"); }
salut et merci ,
j'ai déjà ça qui marche:

Code:

((TSpeedButton *)Controls[j])->Glyph->LoadFromFile(Valeur);

mais mon probléme c'est quand ce n'est pas un tspeedbutton:
car dans ce cas j'aimerai changer la propriété caption du controle
Code:

1 2 3 4 else { (this->Components[j])->Caption=Valeur; }
merci d'avance

19/12/2006, 15h59
kmaniche

Bonjour,

je suis trés heureux que ça marche, toutefois il faudra penser au balise pour mettre ton code avant de poster.

Les balises de code sont accessible via l'icone # (dernière à droite).

désolé j'ai pas vu la suite du poste.

pour le problème qui reste :

Code:

1
2
3
4
5
6
7
8
9
10
 
for(int i = 0 ; i < Form1 -> ComponentCount ; i++)
  if(Form1 -> Components[i] -> ClassNameIs("TSpeedButton"))
    {
       ((TSpeedButton*)Form1 -> Components[i]) -> Glyph->LoadFromFile("chemin");
    }
   else if(Form1 -> Components[i] -> ClassNameIs("TLabel"))
    {
       ((TLabel*)Form1 -> Components[i]) -> Caption = "coucou" ; 
    }

Citation:

Envoyé par kmaniche

Bonjour,

je suis trés heureux que ça marche, toutefois il faudra penser au balise pour mettre ton code avant de poster.

Les balises de code sont accessible via l'icone # (dernière à droite).

salut c mon code,mais je vois pas de balises,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 for (int j = 0;j < ControlCount;j++)//parcours des controles de ta fiche { if (Controls[j]->Name == section)//je vérifie si le controle trouvé est celui que je désire { if(this->Components[j]->ClassNameIs("TSpeedButton")) { ((TSpeedButton *)Controls[j])->Glyph->LoadFromFile(Valeur); } else { (Controls[j])->Caption=Valeur; } } }
est c'est au niveau du "else" que j'ai le prob.
merci:merci: :merci: :merci:

19/12/2006, 17h32
kmaniche

Oui, il faut ajouter une autre condition aprés le else.

Supposons que tu as 2 TSpeedButton, 2 TLabel, et 3 TEdit, si tu utilise ton code tu aura une erreur parceque tu n'a pas pris en considération le TEdit car il n'y a pas de Caption pour un TEDIT.

Alors regarde le code que je tès donné.
20/12/2006, 11h32
aadelfa

Citation:

Envoyé par kmaniche

Oui, il faut ajouter une autre condition aprés le else.

Supposons que tu as 2 TSpeedButton, 2 TLabel, et 3 TEdit, si tu utilise ton code tu aura une erreur parceque tu n'a pas pris en considération le TEdit car il n'y a pas de Caption pour un TEDIT.

Alors regarde le code que je tès donné.

merci kmaniche,ton code marche bien,
mais comment pourrai-je accéder aux controle qui sont dans un panel.
et merci encore
20/12/2006, 11h35
franckcl

Je pense que si tu remplaces
Form1 -> Components[i]
par
Form1 -> Panel1 -> Components[i]

ça devrait marcher

Citation:

Envoyé par franckcl

Je pense que si tu remplaces
Form1 -> Components[i]
par
Form1 -> Panel1 -> Components[i]

ça devrait marcher

salut
j'ai essayé ça ,mais il n'y a pas d'erreur mais mes speedbuttons reste intactes,en plus j'ai 3 panels dans ma form.
Code:

1 2 3 4 5 6 7 8 9 10 11 if (Controls[j]->Name == section)//je vérifie si le controle trouvé est celui que je désire { if(Form1->Panel2 -> Components[j] -> ClassNameIs("TSpeedButton")) { ((TSpeedButton*)Form1 ->Panel2 -> Components[j]) -> Glyph->LoadFromFile(Valeur); } else if(Form1 -> Components[j] -> ClassNameIs("TLabel")) { ((TLabel*)Form1 -> Components[j]) -> Caption = "coucou" ; } }
merci pour ton aide

20/12/2006, 11h52
franckcl

Il y a peut-être un problème de mise à jour, essaye ceci:

((TSpeedButton*)Form1 ->Panel2 -> Components[j]) -> Update();
ou alors
Form1 ->Panel2->Update();
20/12/2006, 13h38
say

moi je vote pour :
Si c'est un panel...alors je relances ma fonction sur le panel à la place de la form

parcourir les objets de maform

Citation:

Envoyé par say

moi je vote pour :
Si c'est un panel...alors je relances ma fonction sur le panel à la place de la form

salut les amis
j'ai une form ou ily a 3panels,et dans ces panels j'ai des sppedbutton et des labels.et je veux parcourirs tous les speedbutton et labels .
c le code que j'ai: il ne donne pas d'erreur mais il n'accéde pas à mes composants.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 for (int j = 0;j < ControlCount;j++)//parcours des controles de ma form { if (Controls[j]->Name == "Nom speedbutton")//je vérifie si le controle trouvé est celui que je désire { if(this->Components[j]->ClassNameIs("TSpeedButton")) { ((TSpeedButton *)Controls[j])->Glyph->LoadFromFile("chemin"); } else if(this -> Components[j] -> ClassNameIs("TLabel")) { ((TLabel *)Controls[j])->Caption="blabla"; } } }
merci pour votre aide:
arf:

20/12/2006, 15h39
say

alors, première étape..tu t'organises pour trouver la baliser [CODE] parce que c'est chiant à lire là qd même.

et ton dernier post, il apporte quoi???
tu veux peut-etre qu'on te donne la solution directe...
il me semble d'avoir donner une piste..
C'est quoi le proto de ta fonction?
20/12/2006, 15h42
aadelfa

Citation:

Envoyé par say

alors, première étape..tu t'organises pour trouver la baliser [CODE] parce que c'est chiant à lire là qd même.

et ton dernier post, il apporte quoi???
tu veux peut-etre qu'on te donne la solution directe...
il me semble d'avoir donner une piste..
C'est quoi le proto de ta fonction?

j'ai regardé les liens mais je n'ai rien trouvé
concérnant les balises ,je ne les trouves pas ces balises

tssss...la balise, quand tu rédiges le message : #

un exemple de code qui devrait rouler à peu près :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
MyFonctionCaptionsGlyphes(TWinControl * Sender)
{
 
    for(i=0;i<Sender->ControlCount ;i++)
        { 
 if((AnsiString)Sender->Controls[i]->ClassName() == "TSpeedButton")   
(dynamic_cast<TSpeedButton*>(Sender->Controls[i]))->Glyph->LoadFromFile("chemin");
else if((AnsiString)Sender->Controls[i]->ClassName() == "TLabel")    
(dynamic_cast<TLabel *>(Sender->Controls[i]))->Caption="blabla";
else if((AnsiString)Sender->Controls[i]->ClassName() == "TPanel")    
   MyFonctionCaptionsGlyphes(Sender->Controls[i]);
  }
}

Edited : copier-coller raté..il y avait une boucle en trop

Salut !

En premier lieu, j'ai utilisé quelques symboliques :

Code:

enum{id_none, id_label, id_panel, id_speedbutton};

Ensuite j'ai déclaré deux méthodes membres pour TForm1 :
Code:

1 2 3 public: // Déclarations de l'utilisateur void __fastcall Targets(TWinControl *WinControl); int __fastcall GetControlId(TControl *Control);
Je préfère tester si l'objet hérite d'une classe précise pour avoir une vision plus large.
Ce se serait dommage d'ignorer des objets dérivées de la dite classe... ;)
Code:

1 2 3 4 5 6 7 8 int __fastcall TForm1::GetControlId(TControl *Control) { if(Control->InheritsFrom(__classid(TLabel))) return id_label; if(Control->InheritsFrom(__classid(TPanel))) return id_panel; if(Control->InheritsFrom(__classid(TSpeedButton))) return id_speedbutton; //... return id_none; }
La méthode suivante est récursive.
On peut utiliser un switch sur la valeur renvoyée par la méthode GetControlId; on a ainsi une meilleure lisibilité de ce que l'on fait, en lieu et place d'un arbre logique avec ses if et ses else...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 void __fastcall TForm1::Targets(TWinControl *WinControl) { TControl *Control; for(int j = 0; j < WinControl->ControlCount; j++) { Control = WinControl->Controls[j]; //traite d'abord les objets dont le Control est parent if(Control->InheritsFrom(__classid(TWinControl))) { Targets((TWinControl*)Control); } //puis traite le Control switch(GetControlId(Control)) { case id_label : ((TLabel*)Control)->Caption = "Found"; break; case id_panel : ((TPanel*)Control)->Caption = "Found"; break; case id_speedbutton : ((TSpeedButton*)Control)->Caption = "Found"; break; //... } } }
Pour le test, j'ai fait :
Code:

1 2 3 4 void __fastcall TForm1::BitBtn1Click(TObject *Sender) { Targets(this); // donc ici la racine n'est autre que Form1 }
Ce n'est qu'un exemple !

A plus !

20/12/2006, 17h14
franckcl

Citation:

Envoyé par aadelfa

j'ai regardé les liens mais je n'ai rien trouvé
concérnant les balises ,je ne les trouves pas ces balises

Pour rentrer les balises de code:
Lorsque tu rédiges un message, tu dois avoir un bouton "#" juste au dessus de la zone de saisie, le dernier bouton à droite.

Tu dois avoir une barre d'outils avec G I S (123) (...) etc... et le dernier outil est le "#".
Appuie dessus, cela va insérer une balise de début et une balise de fin dans ton message. Tu as juste à entrer ton code entre ces 2 balises. C'est tout.
Franck
20/12/2006, 17h15
say

chapeau bas...je m'incline..:lahola: :ave:
j'avais pas pensé au coup des inherits.. :mouarf:

et ben le switch, suis d'accord ..je le fais d'hab mais là c t vite fait (ce qui n'excuse rien, je te l'accorde :aie:

Citation:
Envoyé par henderson
Salut !

En premier lieu, j'ai utilisé quelques symboliques :

Code:

enum{id_none, id_label, id_panel, id_speedbutton};

Ensuite j'ai déclaré deux méthodes membres pour TForm1 :
Code:

1 2 3 public: // Déclarations de l'utilisateur void __fastcall Targets(TWinControl *WinControl); int __fastcall GetControlId(TControl *Control);
Je préfère tester si l'objet hérite d'une classe précise pour avoir une vision plus large.
Ce se serait dommage d'ignorer des objets dérivées de la dite classe... ;)
Code:

1 2 3 4 5 6 7 8 int __fastcall TForm1::GetControlId(TControl *Control) { if(Control->InheritsFrom(__classid(TLabel))) return id_label; if(Control->InheritsFrom(__classid(TPanel))) return id_panel; if(Control->InheritsFrom(__classid(TSpeedButton))) return id_speedbutton; //... return id_none; }
La méthode suivante est récursive.
On peut utiliser un switch sur la valeur renvoyée par la méthode GetControlId; on a ainsi une meilleure lisibilité de ce que l'on fait, en lieu et place d'un arbre logique avec ses if et ses else...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 void __fastcall TForm1::Targets(TWinControl *WinControl) { TControl *Control; for(int j = 0; j < WinControl->ControlCount; j++) { Control = WinControl->Controls[j]; //traite d'abord les objets dont le Control est parent if(Control->InheritsFrom(__classid(TWinControl))) { Targets((TWinControl*)Control); } //puis traite le Control switch(GetControlId(Control)) { case id_label : ((TLabel*)Control)->Caption = "Found"; break; case id_panel : ((TPanel*)Control)->Caption = "Found"; break; case id_speedbutton : ((TSpeedButton*)Control)->Caption = "Found"; break; //... } } }
Pour le test, j'ai fait :
Code:

1 2 3 4 void __fastcall TForm1::BitBtn1Click(TObject *Sender) { Targets(this); // donc ici la racine n'est autre que Form1 }
Ce n'est qu'un exemple !

A plus !
salut
j'ai creé une application ou j'ai mise 2 panels et des controles,mais quand je l'éxécute j'ai une erreur.
expected a file name
merci pour votre aide

20/12/2006, 18h19
say

allo...y'a quelqu'un????
suis désolé...mais :
- sers à rien de citer tout et n'importe quoi..
- tu ne dis jamais si tu as essayé les solutions qu'on te propose
- tu ne sembles pas du tout chercher par toi même..

fais un effort stp :sm:
20/12/2006, 18h36
aadelfa

Citation:

Envoyé par say

allo...y'a quelqu'un????
suis désolé...mais :
- sers à rien de citer tout et n'importe quoi..
- tu ne dis jamais si tu as essayé les solutions qu'on te propose
- tu ne sembles pas du tout chercher par toi même..

fais un effort stp :sm:

tes solutions non
les autres si
merci quand même
a dieu
20/12/2006, 19h00
say

alors..je te signale que c'est surtout que je t'ai pas livré une solution clé main...
suis vraiment navré...merci à henderson donc.

mais reconnais que c'etait difficile de savoir où tu en étais.

bonne continuation

P.S : pense au tag :resolu: si ce n'est déjà fait merci
20/12/2006, 19h03
henderson
Salut !

expected a file name ??? :mouarf:

Y' a des jours comme ça .... où rien ne va !!!

Il suffit d'appliquer sur les 2 panels, comme je l'ai montré pour la form.
En effet, un TPanel dérive de TWinControl donc...
Code:

1 2 Targets(Panel1); Targets(Panel2);
A plus !
20/12/2006, 19h21
aadelfa
Citation:
Envoyé par henderson

Salut !

expected a file name ??? :mouarf:

Y' a des jours comme ça .... où rien ne va !!!

Il suffit d'appliquer sur les 2 panels, comme je l'ai montré pour la form.
En effet, un TPanel dérive de TWinControl donc...

Code:

1 2 Targets(Panel1); Targets(Panel2);

A plus !
je vais essayer ça
merci

Citation:

Envoyé par henderson

Salut !

expected a file name ??? :mouarf:

Y' a des jours comme ça .... où rien ne va !!!

Il suffit d'appliquer sur les 2 panels, comme je l'ai montré pour la form.
En effet, un TPanel dérive de TWinControl donc...

Code:

1
2
Targets(Panel1);
Targets(Panel2);

A plus !

salut
j'ai essayé et ça marche,mais quand j'insére des images.bmp,mon programme prend du temps pour appliquer ces images.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
TControl *Control;
 const char *strSection;
 AnsiString A;
TIniFile *f;
AnsiString section;
    strSection="english";
 
try
{
   TStringList *lSections = new TStringList();
   f = new TIniFile("monfichier.ini");
   f->ReadSection(strSection, lSections);
 
for(int j = 0; j < WinControl->ControlCount; j++)
    {
    for(int i=0 ; i < lSections->Count ; ++i)
     {
      section = lSections->Strings[i];
      AnsiString Valeur = f->ReadString(strSection,section,"");//paramètres = Section/Clé/Valeur par défaut
   Control = WinControl->Controls[j];
    //traite d'abord les objets dont le Control est parent
    if(Control->InheritsFrom(__classid(TWinControl)))
        {
        Targets((TWinControl*)Control);
        }
    //puis traite le Control 
    switch(GetControlId(Control))
        {
        case id_label : if (((TLabel*)Control)->Name == section)
            {
               ((TLabel *)Control)->Caption=Valeur;} break;
 
     //   case id_panel : if (((TLabel*)Control)->Name == section)
       //    {
         //     ((TPanel*)Control)->Caption = "Found"; break;
        case id_speedbutton : if (((TSpeedButton*)Control)->Name == section)
             {
           ((TSpeedButton*)Control)->Glyph->LoadFromFile(Valeur);} break;
        //...
        }
 
    }
     }
 
   delete lSections;
 
}
__finally
{
   delete f;
}
}

merci pour tout

21/12/2006, 13h54
aadelfa
Citation:
Envoyé par henderson

Salut !

expected a file name ??? :mouarf:

Y' a des jours comme ça .... où rien ne va !!!

Il suffit d'appliquer sur les 2 panels, comme je l'ai montré pour la form.
En effet, un TPanel dérive de TWinControl donc...

Code:

1 2 Targets(Panel1); Targets(Panel2);

A plus !
salut et merci beaucoup anderson ainsi que tous
désolé d'avoir oublié de mettre :resolu:
c un peu lent mais ça marche
Code:

1 2 3 4 void __fastcall TForm1::BitBtn1Click(TObject *Sender) { Targets(Form1); }
:merci: :merci: :merci: