Recuperation de Name d'un composant et le convertir

bonsoir.

Est il possible de recuperer le nom d'un composant et le convertir en TColor.
Je m'explique, j'ai un popup dont les TMenuItems ont pour nom clRed, clBlue , etc ....
Quand je selection le menu, je voudrais affecter à la couleur d'un composant la couleur (le MenuItem) que je viens de selectionner.


Bob

Bonjour,

tu peux peut-être tout simplement te servir de la propriété Tag et mémoriser le code couleur pour chaque item ?

Eric

Bonsoir,

Je devrais etre au lit depuis longtemps - a mon age c'est pas sérieux - mais bon, je suis incorrigible...
Perso, j'essaierai ca :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

TMenuItem *pItem = dynamic_cast < TMenuItem * > (Sender); switch (pItem->MenuIndex) { case (0): Form2->Label1->Font->Color = clRed; break; case (1): Form2->Label1->Font->Color = clBlue; break; }

---

par exemple.
J'ai testé avec le Name de chaque TMenuItem, et en fait le gros problème est que si qq part ailleurs dans ta fiche tu affectes a un autre objet une couleur qui porte le meme nom qu'un de tes TMenuItem, la tu auras irrémédiablement une erreur ...
Par ex, j'avais une erreur sur cette ligne dans ma fiche :

Code:

---

1 2	Form2->StringGrid1->Canvas->Font->Color = clRed;

---

puisque qu'il est impossible d'affecter un TMenuItem * a une propriété TColor.

@ + :wink:

Le tag est de type entier.
C'etait plus simple (ou du moins plus parlant) de creer des menus possedant le nom de la couleur que je voulais .

Tu peux toujours laisser le nom de la couleur et dans le tag ne stocker que l'entier correspondant.

C'est beaucoup plus simple...mais si tu aimes faire plus compliquer...

Salut !

Le Tag fait très bien l'affaire :

Code:

---

TMenuItem *M;

---

Code:

---

1 2	M->Tag = clWhite; M->Tag = 0x00FFFFFF; // même chose que clWhite

---

A l'usage :

Code:

---

TColor c = (TColor)M->Tag;//transtypage pour éviter les avertissements

---

A plus !

Ok. J'utilse la derniere solution.
Merci à tous.
bob

B'soir,

:bravo:
Merci henderson, voila qqchose que je n'aurais pas pensé essayer.

@+ :wink: