Discussion :

[PhilLU]

Bonjour,
Je crée des composants dynamiquement via:

Code :

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

1
2
3
4
5
6
7
var
B: TAdvGlassButton;
begin
//...
B:= TAdvglassButton.Create(self);
B.Caption:= arbre.Cells[col,ligne];
B.Parent:=self;

Ceci fonctionne bien, mais je n'arrive pas à accéder à ces composants
... par exemple pour en changer la couleur.
J'attribue un nom au composant:

Code :

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

1
2
   B.Name:=  'c'+inttostr(col)+'l'+inttostr(ligne);
if B.Caption='CD38' then label6.caption:=B.Name;

et le nom est bien renvoyé...
Mais ensuite je n'arrive pas à accéder au composant
Coment faire???
Merci d'avance,
PhilLu

[Paul TOTH]

alors donner un nom unique au composant permet de le retrouver avec la méthode FindComponent()

mais il est tellement plus simple de stocker celui-ci dans un tableau ou une liste !

au choix:

Code :

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

1
2
3
4
5
6
 
var buttons: array of TAdvglassButton;
var buttons: TArray<TAdvglassButton>;
var buttons: TList;
var buttons: TObjectList;
var buttons: TObjectList<TAdvglassButton>;

si tu connais à l'avance le nombre de bouton, un array peu faire l'affaire, sinon une liste
NB: le but n'est pas de détruire les objets mais juste de les référencer, donc attention à OwnsObjects de TObjectList qu'il faut mettre à False !

[pprem]

Au pire il est toujours possible de parcourir la liste des composants par rapport à leur propriétaire (propriétés Components et ComponentsCount) ou de leur parents (Controls/ControlsCount en VCL, Children/ChildrenCount en FMX).

Donner un nom ne sert à rien si on n'utilise pas FindComponents() pour le récupérer. On peut aussi utiliser les propriétés Tag, TagString, ... lorsqu'elles sont disponibles pour stocker ce qu'on veut au niveau de chaque composant.

[PhilLU]

Super, merci.
Je nomme les boutons, et puis???
Comment attribuer une nouelle couleur au bouton nommé C1l2 par exemple?

Code :

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

C1l2.BackColor:=clWhite;

ne fonctionne pas, alors que j'arrive à afficher le nom du composant:

Code :

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

label5.Caption:=B.Name;

J'ai du oublier qq chose...

Merci pour vos réponses,

[Paul TOTH]

Delphi est un langage compilé, on ne peut pas nommer une variable pendant l'execution

Code :

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

1
2
 
(FindComponent('C1l2') as TAdvglassButton).BackColor:=clWhite;

[PhilLU]

Bonjour,
le code:

Code :

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

memo1.Lines.Append(B.Name+' '+B.Caption);

me renvoie bien:

Code :

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

1
2
3
4
5
c0l2 CD20
c0l4 CD5
c0l6 CD23
c0l8 CD18
c0l10 CD95

mais ensuite le code:

Code :

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

(FindComponent('c0l4') as TAdvglassButton).BackColor:=clblue;

(par exemple)
ne modifie pas la couleur du composant.
J'ai tenté de modifier le caption du composant, idem...

... comprends pas
merci pour votre aide