Discussion :

[Larion]

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

Code :

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

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 :

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

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 ?

[bakaneko]

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

Exemple:

Prototype de ma fonction;

Code :

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

void __fastcall TMenuCV::ActionPopup(TObject *Sender)

Lien avec le onClick:

Code :

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

Menu->OnClick = ActionPopup;

[Larion]

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

[colonel95]

Salut,

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

[Xam335]

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

Code :

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

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 :

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

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..

[Larion]

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.

[Larion]

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

Code :

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

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);