Comment optimiser l'énumération de controls

**BuzzLeclaire** · 01/02/2012, 22h28

Bonsoir à toutes

et à tous

J'ai besoin dans mon application de parcourir les controls d'un conteneur exemple un TPanel.
Ce Panel peut comporter soit des simples TEdit ou des Tabsheet (sous Tpagecontrol) qui comportent eux mêmes des TgroupBox incluant des TcomboBox. Pour faire simple j'ai besoin de tout parcourir pour récupérer la valeur du TAG de ces composants afin de les comparer non pas entre eux mais les comparés par rapport a un TStringList préalablement rempli.

voici ma procédure

Code :

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

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
    EnumDroits.Clear;
    EnumDroits.Delimiter := ',';
    EnumDroits.DelimitedText := Gauche(':FsPanelBas',Droite('DsPanelBas:',logiciel.Droits));
    for x := 0 to EnumDroits.Count - 1 do
    begin
      for i := 0 to sPanelBas.ControlCount - 1 do
      begin
        if (sPanelBas.Controls[i] is TsPanel) then
        begin
          for j := 0 to (sPanelBas.Controls[i] as TsPanel).ControlCount - 1 do
          begin
            if ((sPanelBas.Controls[i] as TsPanel).Controls[j] is TsPageControl) then
            begin
              for y := 0 to ((sPanelBas.Controls[i] as TsPanel).Controls[j] as TsPageControl).ControlCount - 1 do
              begin
                if (((sPanelBas.Controls[i] as TsPanel).Controls[j] as TsPageControl).Controls[y] is TsTabSheet) then
                begin
                  for z := 0 to (((sPanelBas.Controls[i] as TsPanel).Controls[j] as TsPageControl).Controls[y] as TsTabSheet).ControlCount  - 1 do
                  begin
                    if (((sPanelBas.Controls[i] as TsPanel).Controls[j] as TsPageControl).Controls[y] as TsTabSheet).Controls[z].tag = StrToIntDef(EnumDroits.Strings[x],-1) then
                    begin
                      (((sPanelBas.Controls[i] as TsPanel).Controls[j] as TsPageControl).Controls[y] as TsTabSheet).Controls[z].Enabled  := False;
                      (((sPanelBas.Controls[i] as TsPanel).Controls[j] as TsPageControl).Controls[y] as TsTabSheet).Controls[z].ShowHint := False;
                    end;
                  end;
                end;
                if ((sPanelBas.Controls[i] as TsPanel).Controls[j] as TsPageControl).Controls[y].Tag = StrToIntDef(EnumDroits.Strings[x],-1) then
                begin
                  ((sPanelBas.Controls[i] as TsPanel).Controls[j] as TsPageControl).Controls[y].Enabled  := False;
                  ((sPanelBas.Controls[i] as TsPanel).Controls[j] as TsPageControl).Controls[y].ShowHint := False;
                end;
              end;
            end;
            if (sPanelBas.Controls[i] as TsPanel).Controls[j].Tag = StrToIntDef(EnumDroits.Strings[x],-1) then
            begin
              (sPanelBas.Controls[i] as TsPanel).Controls[j].Enabled  := False;
              (sPanelBas.Controls[i] as TsPanel).Controls[j].ShowHint := False;
            end;
          end;
        end;
        if sPanelBas.Controls[i].Tag = StrToIntDef(EnumDroits.Strings[x],-1) then
        begin
          sPanelBas.Controls[i].Enabled := False;
          sPanelBas.Controls[i].ShowHint := False;
        end;
      end;
    end;

Existe-il une méthode moins comliquée ?

@Merci.

**Caribensila** · 02/02/2012, 00h14

Bonsoir,

Je ne sais pas si ça va t'aider, mais tu pourrais parcourir tous les Controls de ta Form ainsi, par exemple :

Code :

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

1
2
3
for i:= 0 to ComponentCount-1 do
  if Components[i] is TControl
    then Memo1.Lines.Add(format('%.3d  %s', [i, Components[i].Name]));

**BuzzLeclaire** · 02/02/2012, 10h10

Envoyé par Caribensila

Bonsoir,

Je ne sais pas si ça va t'aider, mais tu pourrais parcourir tous les Controls de ta Form ainsi, par exemple :

Code :

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

1
2
3
for i:= 0 to ComponentCount-1 do
  if Components[i] is TControl
    then Memo1.Lines.Add(format('%.3d  %s', [i, Components[i].Name]));

Salut Caribensila,

Je ne peux pas utiliser cette méthode, ou alors il faudrait pouvoir à un moment être dans le PanelBas (un Tpanel) où je souhaite accèder à l'ensemble des compos de ce Tpanel (qui comporte d'autre Tpanel/TpageControl/Tcombobox etc..)

@+

**Papy214** · 02/02/2012, 10h19

avec un peu de récursivité peut-être ? Chaque composant qui peut en contenir d'autres peut être "détecté" et on peut repasser le même code dessus ...
Bien codé, on peut même avoir toute la hiérarchie

**ShaiLeTroll** · 02/02/2012, 10h20

Déjà tu pourrais éviter de faire [x][y][z] à chaque fois !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
for x := 0 to EnumDroits.Count - 1 do
    begin
      for i := 0 to sPanelBas.ControlCount - 1 do
      begin
        CtrlOne := sPanelBas.Controls[i]; // ça
        if (CtrlOne is TsPanel) then
        begin
          PanelOne := TsPanel(CtrlOne); // tu as fait is, inutile de faire as, une nano seconde de moins !
          for j := 0 to PanelOne.ControlCount - 1 do
          begin
            CtrlTwo := PanelOne.Controls[j];
            if (CtrlTwo is TsPageControl) then
            begin 
              PageCtrlTwo := TsPageControl(CtrlTwo);
              ...

**Rayek** · 02/02/2012, 10h22

Ne serait il pas mieux de :

1- Localiser ton panel en premier
2- de vérifier les droits des composants du panel

Car la tu fais

Pour chaque droits je vérifie les composants

En gros virer la boucle x et mettre le test de vérification plutôt dans la boucle Z en utilisant IndexOf de la TStringList

**BuzzLeclaire** · 02/02/2012, 10h38

Envoyé par Rayek

Ne serait il pas mieux de :

1- Localiser ton panel en premier
2- de vérifier les droits des composants du panel

Car la tu fais

Pour chaque droits je vérifie les composants

En gros virer la boucle x et mettre le test de vérification plutôt dans la boucle Z en utilisant IndexOf de la TStringList

Oui, Oui, je m'en suis apperçu hier soir et j'ai retiré la boucle x pour faire un IndexOf

Je regarde les autre propositions.

Merci.

**Caribensila** · 02/02/2012, 14h53

Envoyé par BuzzLeclaire

Je ne peux pas utiliser cette méthode, ou alors il faudrait pouvoir à un moment être dans le PanelBas (un Tpanel) où je souhaite accèder à l'ensemble des compos de ce Tpanel (qui comporte d'autre Tpanel/TpageControl/Tcombobox etc..)

Il suffit que tu décides que tous les compos et sous-compos de ton PanelBas aient des Tag > 100, par exemple :

Code :

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

1
2
3
for i:= 0 to ComponentCount-1 do
  if (Components[i] is TControl) and (Components[i].Tag>100)
    then Memo1.Lines.Add(format('%.3d  %s', [i, Components[i].Name]));

**BuzzLeclaire** · 02/02/2012, 22h00

Envoyé par Caribensila

Il suffit que tu décides que tous les compos et sous-compos de ton PanelBas aient des Tag > 100, par exemple :

Code :

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

1
2
3
for i:= 0 to ComponentCount-1 do
  if (Components[i] is TControl) and (Components[i].Tag>100)
    then Memo1.Lines.Add(format('%.3d  %s', [i, Components[i].Name]));

Excellent, j'y avais pas pensé une seconde..., voilà ce que cela peut donner.

Code :

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

1
2
3
4
5
6
    EnumDroits.Clear;
    EnumDroits.Delimiter := ',';
    EnumDroits.DelimitedText := Gauche(':FsPanelBas',Droite('DsPanelBas:',logiciel.Droits));
    for i:= 0 to ComponentCount-1 do
      if (Components[i] is TControl) and (Components[i].Tag >= 500) and (Components[i].Tag <= 520) then
         (Components[i] as TControl).Enabled := EnumDroits.IndexOf(InttoStr(Components[i].Tag)) = -1;

Pour de la simplification c'est de la simplification, en plus je vais pouvoir l'étendre.

Parcontre cela ne fonctionne pas pour les TMenu ou TPopupMenu !!

J'ai essayé en global

Code :

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

1
2
    for i:= 0 to ComponentCount-1 do
      Components[i].Enabled := EnumDroits.IndexOf(InttoStr(Components[i].Tag)) = -1;

Evidement Enabled n'existe pas

J'ai donc fini par faire cela

Code :

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

1
2
3
4
5
6
7
8
    EnumDroits.Delimiter := ',';
    EnumDroits.DelimitedText := Gauche(':FPrincipal',Droite('DPrincipal:',logiciel.Droits));
    for i:= 0 to ComponentCount-1 do
      if (Components[i] is TControl) then
        (Components[i] as TControl).Enabled := EnumDroits.IndexOf(InttoStr(Components[i].Tag)) = -1
      else
      if (Components[i] is TMenuItem) then
        (Components[i] as TMenuItem).Enabled := EnumDroits.IndexOf(InttoStr(Components[i].Tag)) = -1

Merci à vous tous.

**Rayek** · 03/02/2012, 09h29

A tester mais tu peux aussi faire de cette manière

Code :

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

1
2
3
4
5
6
7
8
 
uses ... ,TypInfo;
 
EnumDroits.Delimiter := ',';
EnumDroits.DelimitedText := Gauche(':FPrincipal',Droite('DPrincipal:',logiciel.Droits));
for i:= 0 to ComponentCount-1 do
  if  GetPropInfo(Component[i].ClassInfo, 'Enabled') then
    SetPropValue(TObject(Component[i]),'Enabled', (EnumDroits.IndexOf(InttoStr(Components[i].Tag)) = -1));

**BuzzLeclaire** · 03/02/2012, 22h34

Envoyé par Rayek

A tester mais tu peux aussi faire de cette manière

Code :

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

1
2
3
4
5
6
7
8
 
uses ... ,TypInfo;
 
EnumDroits.Delimiter := ',';
EnumDroits.DelimitedText := Gauche(':FPrincipal',Droite('DPrincipal:',logiciel.Droits));
for i:= 0 to ComponentCount-1 do
  if  GetPropInfo(Component[i].ClassInfo, 'Enabled') then
    SetPropValue(TObject(Component[i]),'Enabled', (EnumDroits.IndexOf(InttoStr(Components[i].Tag)) = -1));

Merci Rayek pour ta proposition, mais le enabled n'est pas la seule proriété que je doit toucher.

De plus GetPropInfo(Component[i].ClassInfo, 'Enabled') ne retourne pas un boolean apparement avec cette modification cela marche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  PropInfo: PPropInfo;
begin
  EnumDroits := TStringList.Create;
  Try
    EnumDroits.Delimiter := ',';
    EnumDroits.DelimitedText := Gauche(':FPrincipal',Droite('DPrincipal:',logiciel.Droits));
    for i:= 0 to ComponentCount-1 do
    begin
      PropInfo := GetPropInfo(Components[i].ClassInfo, 'Enabled');
      if Assigned(PropInfo) then
//        SetPropValue(TObject(Components[i]),'Enabled', (EnumDroits.IndexOf(InttoStr(Components[i].Tag)) = -1));
 SetOrdProp(TObject(Components[i]),PropInfo, LongInt((EnumDroits.IndexOf(InttoStr(Components[i].Tag)) = -1)));
    end;

En finalité j'ai donc 2 possibilité :
@Rayek

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
  PropInfo : PPropInfo;
begin
  EnumDroits := TStringList.Create;
  Try
    EnumDroits.Delimiter := ',';
    EnumDroits.DelimitedText := Gauche(':FPrincipal',Droite('DPrincipal:',logiciel.Droits));
    for i:= 0 to ComponentCount-1 do
    begin
      if (Components[i] is TsTabSheet) And ((Components[i] as TsTabSheet).Parent.Name = sPageControl.Name)
      then PropInfo := GetPropInfo(Components[i].ClassInfo, 'TabVisible')
      else PropInfo := GetPropInfo(Components[i].ClassInfo, 'Enabled');
 
      if Assigned(PropInfo) then
        SetOrdProp(TObject(Components[i]),PropInfo, LongInt((EnumDroits.IndexOf(InttoStr(Components[i].Tag)) = -1)));
    end;
  Finally
    if Assigned(EnumDroits) then FreeAndNil(EnumDroits);
  End;

@initié par Caribansila

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  EnumDroits := TStringList.Create;
  Try
    EnumDroits.Delimiter := ',';
    EnumDroits.DelimitedText := Gauche(':FPrincipal',Droite('DPrincipal:',logiciel.Droits));
    for i:= 0 to ComponentCount-1 do
      if (Components[i] is TControl) then
        if (Components[i] is TsTabSheet) And ((Components[i] as TsTabSheet).Parent.Name = sPageControl.Name) then
          (Components[i] as TsTabSheet).TabVisible := EnumDroits.IndexOf(InttoStr(Components[i].Tag)) = -1
        else
          (Components[i] as TControl).Enabled := EnumDroits.IndexOf(InttoStr(Components[i].Tag)) = -1
      else
        if (Components[i] is TMenuItem) then
          (Components[i] as TMenuItem).Enabled := EnumDroits.IndexOf(InttoStr(Components[i].Tag)) = -1
 
  Finally
    if Assigned(EnumDroits) then FreeAndNil(EnumDroits);
  End;