Discussion :

[olivier4020]

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 :

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

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

Puis dans mon fichier Unit1.c

Code :

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

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 :

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

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

Je pensais que j'allais pouvoir faire :

Code :

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

EditASC->Text = Sender->Text;

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

Grand merci
Olivier

[bakaneko]

Essayes en castant ton Sender en TEdit :

Code :

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

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

[olivier4020]

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

[dvsoft]

bonsoir

pour plus de securite:

Code :

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

1
2
3
4
5
6
 
   TEdit* pEdit = dynamic_cast<TEdit*>(Sender);
    if (pEdit)
       EditASC->Text = pEdit->Text;
    else
       ....

Bon courage
Alain

[Tenguryu]

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

[olivier4020]

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 :

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

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