Indexer un composant

Version imprimable

18/09/2017, 12h51
1bernard1

Indexer un composant

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....
18/09/2017, 13h32
SergioMaster
Bonjour,

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

Code:

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:

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 :roll: dont la mise dans un Array of TEdit au moment du Create de la forme par exemple
18/09/2017, 20h03
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.

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:

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:=....
Citation:

Envoyé par 1bernard1

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:

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:

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; .....

19/09/2017, 10h04
1bernard1

Intéressant ces réponses, je vais les regarder de plus près.... et apprendre.... :) Merci beaucoup.... :D
22/09/2017, 08h40
Invité

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:

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

ou pour l'ensemble

Code:

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

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:

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