Ajout Menu dans un PopupMenu

Question

Bonjour, 
Dans mon programme je crée plusieurs menus dans un popupmenu avec ce code : 
Code: 
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: 
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 ?

magic_Nono · Answer

utilise un ptr de fonctions
cf ts les tut sur ce site et sur ceux du net

Magic Nono: l'informagicien!

magic_Nono · Answer

exemple (de tete)

si tu as des fonction avec ces proto

int maxList(Liste l);
int minList(Liste l);

tu peux avoir une fonction ainsi
void critere(char* txt,int(*ptrFonc)(Liste l))
{
..
Liste l2;
...
int premier = (*ptrFonc)(l2);
..
}

bon, C de mem; en fait, C ptet :
void critere(char* txt,int(ptrFonc*)(Liste l))

teste

Magic Nono: l'informagicien!

larion · Answer

Merci, je n'y avais pas pensé.
Cela devrait fonctionné pour transmettre la fonction en paramètre en utilisant ce prototype :

typedef int (*PtrFonct)(Liste l);

J'espère que je n'aurais pas de problème .
Je teste cela ce soir.  :)

larion · Answer

C'est trop compliqué pour moi. J'ai plusieurs erreurs à la compilation :

typedef void __fastcall (*PtrFonct)(TObject *Sender); // Déclaration de pointeur de fonction

void __fastcall TForm1::FonctionOption(TObject *Sender) // La fonction à pointer
{ ... }

void __fastcall TForm1::AddMenu(char * texte,PtrFonct fonction)
{  NewItems[p] = new TMenuItem(PopupMenu1);
   NewItems[p]->Caption = texte;
   NewItems[p]->OnClick = &fonction; //Erreur de conversion
   PopupMenu1->Items->Add(NewItems[p++]);
}

AddMenu("&Option", FonctionOption); //Erreur,  vois AddMenu(char *,void)

larion · Answer

J'ai trouvé, et ce n'était pas facile : 
Code: 
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);

Ajout Menu dans un PopupMenu

5 réponses

Votre réponse

Discussions similaires