Discussion :

[1bernard1]

Bonjour à tous,
j'aimerais pouvoir indexer un composant.

Exemple, j'ai 10 TEdit sur ma page et j'aimerais bien changer la couleur ( ou autre chose ) de ces composants de façon rapide... par exemple:

for 1 to 10.... edit[i].color....etc.


Comment on passe de edit1 à edit[1].... et faire que ce changement soit valable sur l'ensemble de la fiche et non seulement juste à l'intérieur d'une procédure?????


Merci de répondre

J'ai cherché sans trouver....

[SergioMaster]

Bonjour,

Plusieurs solutions
- Jouer sur les noms i.e. Edit1 ... Edit10 et utiliser

Code :

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

for i:=1 to 10 do TEdit(Findcomponent(Format('Edit%d',[i])).color:= .....

- jouer sur la propriété tag i.e. tous les TEdit avec le tag de valeur 1

Code :

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

1
2
3
 
 for i := 0 to Prrd(ComponentCount) do
   if (Components[i] is TEDit) AND TEdit(Components[i]).tag=1 then TEdit(Components[i]).color:= .....

mais il y en a certainement d'autres encore dont la mise dans un Array of TEdit au moment du Create de la forme par exemple

[1bernard1]

" mais il y en a certainement d'autres encore dont la mise dans un Array of TEdit au moment du Create de la forme par exemple"

J'ai essayé une solution de ce genre, mais les edit indexés ne sont pas utilisables dans l'éditeur i.e. si je fais edit[1]. dans une procédure, j'obtiens un message comme quoi il y a une erreur dans le code.


Vos deux premières solutions ont les places où sur la fiche pour pouvoir les utiliser par la suite comme des edit ordinaires sur toute la fiche?


Merci pour vos réponses.

[SergioMaster]

Bonjour,
Si vous avez essayé la solution du Array of TEdit, il aurait été bien de montrer le code que vous aviez produit, car ce doit être une simple erreur de code.

Voici en gros comment cela devrait se présenter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
// dans la partie private ou public de la form
MyArrayofTEdit : Array [0..9] of TEdit;
....
// dans le onCreate
MyArrayofTEdit[0]:=Edit1;
...
MyArrayofTEdit[9]:=Edit10;
...
// dans la partie où l'on veut changer la propriété 
for i:=0 to 9 do
  MyArrayofTEdit[i].Color:=....

Vos deux premières solutions ont les places où sur la fiche pour pouvoir les utiliser par la suite comme des edit ordinaires sur toute la fiche ?

Pour que le code soit utilisable partout, plusieurs solutions (encore ! je dois avoir un peu de gènes normands).
Soit vous faites une procédure publique :

Code :

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

procedure ChangeMyEditColor(const Couleur : TColor );   // (je n'ai pas vu la version de Delphi, mais je pense que c'est un programme VCL)

Soit vous avez une version de Delphi qui prend en charge les collections.

Soit vous faites une approche objet ou classe : vous déclarez votre Array comme une Class et vous ajoutez propriétés et procédure de changement à cette classe
encore une fois schématiquement (donc non testé et écrit à la volée)

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
type ArrayEdit = Class
private
     FTableauEdit : Array of TEdit;
     FColor : TColor
     FCount : integer;   // pour connaitre le nombre 
 
public
    property Color : TColor read FColor write SetColorArray;
    property TableauEdit : Array of TEdit;
    procedure AddAnEdit(E : TEdit);
end;
 
procedure ArrayEdit.AddAnEdit(E : TEdit)
begin
// ajout 
Fcount:=FCount+1;
// augmentation de la taille de l'array
SetLength(FTableauEdit,FCount);
// passage du TEdit
FTableauEdit[Fcount]:=E;
end;
 
procedure SetColorArray(value : TColor);
begin
 if FColor=Value then Exit;
 FColor:=Value;
 // ici le code pour les changer la couleur des TEdits
end; 
 
.....

[1bernard1]

Intéressant ces réponses, je vais les regarder de plus près.... et apprendre.... Merci beaucoup....

[retwas]

Je pense que tu peux aussi regarder du côté du framework de Jason Southwell, DuckDuckDelphi.

Il suffit de rajouter un uses sur l'unité "duck" qui en gros ajoute un helper sur le TObject.

Code :

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

aEdit.duck.setTo('Color', 'clRed');

ou pour l'ensemble

Code :

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

Self.duck.all.setTo('Color', 'clRed');

[Bloon]

Bonjour,

Les fonctions de TypInfo sont également intéressantes pour ce genre de chose car elles permettent de traiter n'importe quel composant et n'importe quelle propriété published :

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
uses
  TypInfo;
 
procedure SetComponentsColor(pComponent: TComponent; pColor: TColor);
var
  i: integer;
begin
  for i := 0 to pComponent.ComponentCount - 1 do
  begin
    if (GetPropInfo(pComponent.components[i].ClassInfo, 'color') <> nil)
      // eventuellement, autres controles pour ne modifier que les composants qui nous intéressent, exemples :
      and (pComponent.components[i].Tag = 1)
      and (pComponent.components[i] is TCustomEdit)
      and sameText(copy(pComponent.components[i].name, 1, 8), 'montedit')
      and ...
    then
    begin
      setPropValue(pComponent.components[i], 'color', pColor);
    end; // if
    // appel récursif pour traiter les composants détenus par le composant courant :
    SetComponentsColor(pComponent.components[i], pColor);
  end; // for
end;

Bloon