Ajout Menu dans un PopupMenu

Bonjour,
Dans mon programme je crée plusieurs menus dans un popupmenu avec ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

NewItems[p] = new TMenuItem(PopupMenu1); NewItems[p]->Caption = "&Option"; NewItems[p]->OnClick = FonctionOption; PopupMenu1->Items->Add(NewItems[p++]);   NewItems[p] = new TMenuItem(PopupMenu1); NewItems[p]->Caption = "&Restaure"; NewItems[p]->OnClick = FonctionRestaure; PopupMenu1->Items->Add(NewItems[p++]);   ...

---

Cela fonctionne bien.
A présent, je désire le faire par l'intermediaire d'une fonction créée par mes soins, du genre :

Code:

---

1 2 3 4 5 6 7 8

AddMenu("&Option",FonctionOption);   void __fastcall TForm1::AddMenu(char * texte,??? fonction) { NewItems[p] = new TMenuItem(PopupMenu1); NewItems[p]->Caption = texte; NewItems[p]->OnClick = fonction; PopupMenu1->Items->Add(NewItems[p++]); }

---

Pour le premier paramètre "char * texte", pas de problème,
mais pour le second "??? fonction", je n'y arrive pas. Avez-vous une solution ?

tu met le nom de ta fonction, sans type ni paramètre.

Exemple:

Prototype de ma fonction;

Code:

---

void __fastcall TMenuCV::ActionPopup(TObject *Sender)

---

Lien avec le onClick:

Code:

---

Menu->OnClick = ActionPopup;

---

Merci pour la réponse , mais ce n'est pas mon problème. :wink:

Salut,

Tu ne peux pas passer la chaîne de caractères du nom de ta fonction ? Un autre char *?
Bon courage.

T'es sûr?! Il doit ensuite te suffir de placer le nom de ta fonction en paramètre.

Code:

---

1 2 3 4 5 6 7 8 9 10

void __fastcall TMenuCV::ActionPopup(TObject *Sender){}   void __fastcall TForm1::AddMenu(char * texte,ActionPopup()) { NewItems[p] = new TMenuItem(PopupMenu1); NewItems[p]->Caption = texte; NewItems[p]->OnClick = fonction; NewItems[p]->OnClick = ActionPopup; PopupMenu1->Items->Add(NewItems[p++]); }

---

ou

Code:

---

1 2 3 4 5 6 7 8 9 10

void __fastcall TMenuCV::ActionPopup(TObject *Sender){}   void __fastcall TForm1::AddMenu(char * texte,ActionPopup(this)) { NewItems[p] = new TMenuItem(PopupMenu1); NewItems[p]->Caption = texte; NewItems[p]->OnClick = fonction; NewItems[p]->OnClick = ActionPopup; PopupMenu1->Items->Add(NewItems[p++]); }

---

enfin un truc comme ça quoi..

void __fastcall TForm1::AddMenu(char * texte,ActionPopup(this))
void __fastcall TForm1::AddMenu(char * texte,ActionPopup())

Et comment je déclare la fonction AddMenu :
void __fastcall AddMenu(char * texte,???) ;
Il faut un type. C'est tout mon problème.

J'ai trouvé, et ce n’était pas facile de trouver :

Code:

---

1 2 3 4 5 6 7 8

void __fastcall TForm1::AddMenu(char * texte,Classes::TNotifyEvent fonction) { NewItems[p] = new TMenuItem(PopupMenu1); NewItems[p]->Caption = texte; NewItems[p]->OnClick = fonction; PopupMenu1->Items->Add(NewItems[p++]); }   AddMenu("&Option",&FonctionOption);

---