Discussion :

[aliwassem]

salut les amis

je veux changer la coulor d un composant par example Button1 mais je veux pas utiliser son nom commeButton1.color := clred qu est ce que je veux exactement utiliser une autre methode sachant que je connais son Component[]

merci d avance

[Bestiol]

Ben est-ce que ça ne te suffirait pas :

Code :

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

TButton(Components[IdxBouton]).Color := clRed;

Ou alors j'ai pas bien compris ?

[aliwassem]

salut

voila le code

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
 
var
TB: TButton;
.
.
.
procedure
TB:=Tbutton.Create(Form1);
with TB do
TB.name := 'F';
TB.parent := Form1;
.
.
.
end;

alors quand j ai fais creer ca et je veux utiliser par exemple ce code

Code :

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

1
2
 
F.color:= clred;

il me donne un message d erreur que le composant F il n existe pas alors je veux utiliser une autre methode voila

merci

[Bestiol]

aaah c'est normal !

Ton composant est créé à l'exécution, et reçoit donc son nom à ce moment-là !
Le compilateur n'est donc pas en mesure de savoir ce que représente ton F.

Si tu as déclaré TB de manière globale ou que sa portée est valide là où tu en as besoin, tu peux faire :

Code :

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

TB.Color := clRed;

Sinon il reste cette méthode :

Code :

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

TButton(FindComponent('F')).Color := clRed;

vala vala

[DMO]

Il ne faut pas confondre la référence d'un objet et son nom. Cette confusion est néanmoins compréhensive puisque lorsque tu renommes un composant de ta form, Delphi renomme la référence qui se trouve dans cette forme pour la faire correspondre au nom.

Là tu crée ton composant dynamiquement, donc tu n'as que la ou les références que tu utilises pour y accéder. En l'occurence c'est effectivement TB.

Il est néanmoins également possible de retrouver un composant lorsqu'on a son nom : http://delphi.developpez.com/faq/?page=creadyna