Creation dynamique de composants

Bonjour,
Je crée des composants dynamiquement via:

Code:

---

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 8O
... par exemple pour en changer la couleur.
J'attribue un nom au composant:

Code:

---

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

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:

---

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 !

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.

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

Code:

---

C1l2.BackColor:=clWhite;

---

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

Code:

---

label5.Caption:=B.Name;

---

J'ai du oublier qq chose... :calim2:

Merci pour vos réponses,
:ccool:

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

Code:

---

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

---

Bonjour,
le code:

Code:

---

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

---

me renvoie bien:

Code:

---

1 2 3 4 5

c0l2 CD20 c0l4 CD5 c0l6 CD23 c0l8 CD18 c0l10 CD95

---

mais ensuite le code:

Code:

---

(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...
:koi:
... comprends pas :calim2:
merci pour votre aide :ccool:

Bonjour,

Citation:

---

Envoyé par PhilLU

ne modifie pas la couleur du composant.

---

j'ai cru pendant un court instant que c'était un problème lié au composant et donc fait un test rapide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

implementation   {$R *.dfm}   procedure TForm129.Button1Click(Sender: TObject); var advbtn : TAdvGlassButton; begin advBtn:=TAdvGlassButton(FindComponent('ADVG02')); if assigned(advbtn) then advbtn.BackColor:=clblue; end;     procedure TForm129.FormCreate(Sender: TObject); begin with TadvGlassButton.Create(Self) do begin parent:=self; top:=10; left:=10; name:='ADVG02'; caption:='créé'; end; end;

---

Pièce jointe 603368

Donc, cela fonctionne.
Comme Paul j'aurais tendance à faire une liste de boutons plutôt que de faire des findcomponents ou une recherche de tout les boutons de type TAdvGlassButton

Merci déjà pour vos aides ;-)
J'ai donc reproduit le

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.Button3Click(Sender: TObject); begin with TadvGlassButton.Create(Self) do begin parent:=self; top:=10; left:=10; name:='ADVG02'; caption:='créé'; end; end;   procedure TForm1.Button2Click(Sender: TObject); var advbtn : TAdvGlassButton; begin advBtn:=TAdvGlassButton(FindComponent('ADVG02')); if assigned(advbtn) then advbtn.BackColor:=clblue; end;

---

... le bouton se crée bien, mais lors du clic sur le second bouton, le TAdvGlassButton ne change pas de couleur?!?

:arf:

Une question de version peut-être ? Je n'ai lu nulle part dans cette discussion des indications de version de Delphi ou des composants TMS.
Il faudrait essayer un Repaint au cas où.

Code:

---

1 2 3 4 5

if assigned(advbtn) then begin advbtn.BackColor:=clblue; advbtn.Repaint; end;

---

pour info j'ai testé avec Delphi 10.3 et la version 1.3.3.0 de TadvGlassButton

... par contre cela fonctionne parfaitement avec des TadvSmoothButton?!?
Ma version de TAdvGlassButton est 1.3.0.2
Bizzzzare :weird:

Encore merci :ccool:

Est-ce que le Repaint fait quelque chose ?
A moins que ce soit un question d'apparence (style) appliquée :koi:

non, repaint, absolument rien???

déjà est-ce que cela fonctionne ?

Code:

---

1 2 3 4 5 6 7 8 9 10

with TadvGlassButton.Create(Self) do begin parent:=self; top:=10; left:=10; name:='ADVG02'; caption:='créé'; BackColor:=clblue; // ici ! end;

---

ensuite je ferais bien ceci

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.Button2Click(Sender: TObject); var advbtn : TAdvGlassButton; begin advBtn:=TAdvGlassButton(FindComponent('ADVG02')); Assert(assigned(advbtn)); advbtn.BackColor:=clblue; end;

---

ou au minimum un ShowMessage('bouton ADVG02 non trouvé');