Utilisation du paramètre *Sender

Bonjour à tous et à toutes

Pour les besoins de mon application, je dois créer dynamiquement 16 TEdit et leurs affecter un évènement OnChange identique aux 16. En m'inspirant de l'article de la Faq de CGI, j'ai pu écrire ceci:

Fichier Unit1.h

Code:

---

1 2 3

private: TEdit *EditHex[16]; void __fastcall EditHexOnChange(TObject *Sender);

---

Puis dans mon fichier Unit1.c

Code:

---

1 2 3 4 5 6 7 8 9

void __fastcall TForm1::FormCreate(TObject *Sender) { for (int i = 0; i < 16; i++) { EditHex[i] = new TEdit(this); EditHex[i]->Parent = Form1; EditHex[i]->OnChange = EditHexOnChange; } }

---

Mais dans l'évènement, je ne sais pas comment faire référence à l'objet qui a déclenché celui-ci.

Code:

---

1 2 3 4

void __fastcall TForm1::EditHexOnChange(TObject *Sender) { EditASC->Text = ????? }

---

Je pensais que j'allais pouvoir faire :

Code:

---

EditASC->Text = Sender->Text;

---

Mais ça ne marche pas. Si quelqu'un à une idée ?

Grand merci
Olivier

Essayes en castant ton Sender en TEdit :

Code:

---

1 2	EditASC->Text = ((TEdit*)Sender)->Text;

---

Merci bakaneko et quelle rapidité !

Je ne sais pas le tester maintenant mais je le testerai dès ce soir et je vous tiendrai au courant. Sans oublier le "[Résolu]" si ça marche.

Encore merci
Olivier

bonsoir

pour plus de securite:

Code:

---

1 2 3 4 5 6

TEdit* pEdit = dynamic_cast<TEdit*>(Sender); if (pEdit) EditASC->Text = pEdit->Text; else ....

---

Bon courage
Alain

Que signifie le dynamic_cast, je n'avais jamais vu cette syntaxe (d'habitude, j'applique la solution de baka_neko :P ) ?

Bonjour à tous

J'ai essayé le cast de Bakaneko mais ça ne marche pas (dans mon cas !) et pourtant j'avais bien vu d'autres codes avec ce cast sur *Sender. Lorsque j'utilise cette solution, je n'ai accès qu'aux propriétés et méthodes de TObject et non à celles de TEdit.

Par contre, j'ai également trouvé la syntaxe du dynamic_cast que dvsoft énonce et ça fonctionne. Je devais coder:

Code:

---

1 2 3 4 5 6

void __fastcall TForm1::EditHexOnChange(TObject *Sender) { TEdit *EditHEX = dynamic_cast<TEdit *>(Sender);   EditASC->Text = EditHex->Text; }

---

C'est vrai que je peux faire un test sur EditHEX pour plus de sécurité mais je n'y avais pas pensé.

Par contre, je ne comprend pas la différence entre un cast "classique" et un cast dynamique (dynamic_cast) ?

En tout cas, un grand merci à vous deux pour votre aide et je vous souhaite à tous, avec un peu d'avance, un JOYEUX NOEL.
Olivier