Evènement OnClick défini dynamiquement

Bonjour à tous,

après quelques recherches sur le forum et sur developpez.com j'en viens à poster ici.
Je crée dynamiquement des TMenuItem pour remplir mon TPopupMenu. Je souhaiterais maintenant affecter une méthode à l'évènement OnClick de ces éléments....et là je sèche :oops:.

J'ai ma méthode pour le OnClick déclarée dans ma TMainForm.
La méthode se trouve dans une autre classe qui n'a pas accès à la classe TMainForm. De ce fait je dois passer la méthode pour le OnClick en tant que paramètre de la méthode de construction du menu.

Quel type dois-je utiliser ?
J'ai essayer TNotifyEvent et à tout hasard de passer par un void*, mais j'obtient déjà une erreur Type non autorisé à la compilation.

Merci d'avance pour votre aide !

peut être ça va t'aider : moi je creè des Timages dynamiques et je leurs affecte les mvts de la sourie :

Code:

---

1 2 3 4 5

void __fastcall TForm1::ImageDblClick(TObject *Sender) void __fastcall TForm1::ImageMouseUp(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y) void __fastcall TForm1::ImageMouseMove(TObject *Sender, TShiftState Shift,int X, int Y) void __fastcall TForm1::ImageMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)

---

puis j'attribue ces methodes à une image :

Code:

---

1 2 3 4

Image[i]->OnMouseDown = ImageMouseDown; Image[i]->OnMouseMove = ImageMouseMove; Image[i]->OnMouseUp = ImageMouseUp;

---

et voici la déclaration des ces méthodes dans le .h

Code:

---

1 2 3 4 5 6 7

void __fastcall ImageMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y); void __fastcall ImageMouseMove(TObject *Sender, TShiftState Shift, int X, int Y); void __fastcall ImageMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y); void __fastcall ImageDblClick(TObject *Sender);

---

Je fais ça avec TNotifyEvent:
Le call (dans la main form), AddMenuFromPIDL est une simple fonction:

Code:

---

1 2 3

p3d::AddMenuFromPIDL(lpIdl, mnSender, mnSender->Count, mnFavoriteShorcutClick, mnFavoriteClick, false);

---

La fonction:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

void AddMenuFromPIDL(LPITEMIDLIST pIdl, TMenuItem *mnMenu, int nOffset, TNotifyEvent lpfnShellLinkClick, TNotifyEvent lpfnParentClick, bool bLoopSubfolders) { ... mnNewItem = new TMenuItem(mnMenu); mnNewItem->Caption = AnsiString(lpszName, strlen(lpszName)); mnNewItem->OnClick = lpfnShellLinkClick; ... }

---

yarp
www.senosoft.com

Merci yarp, mais peut tu encore me montrer le prototype de ta méthode mnFavoriteClick ?

Merci d'avance.

C'est vraiment un OnClick standard (généré par l'IDE). mnFavorite est un des menus de la TForm (and proud child of TMainMenu ;).
Donc dans le .h de la TForm (partie réservée aux contrôles du DFM):

Code:

---

1 2 3 4

TMenuItem *mnFavorite;   void __fastcall mnFavoriteClick(TObject *Sender);

---

Par contre mnFavoriteShorcutClick a le même prototype mais n'est pas géré par le dfm (un OnClick programmé en private), mais les 2 cas fonctionnent.

Je ne sais pas pourquoi ton code ne compile pas, mais je n'ai pas de pb pour passer une méthode de la VCL à une fonction (BCB 5).

En faisant le code suivant, cela a fonctionné malgré un avertissement

Création du MenuItem

Code:

---

1 2 3 4 5 6

TMenuItem* Item = new TMenuItem(this); Item->Caption = "Toto"; Item->OnClick = Click;   PopupMenu->Items->Add (Item);

---

Fonction du clic

Code:

---

1 2 3 4 5

void __fastcall TForm1::Click(TObject *Sender) { MessageDlg("Toto",mtInformation,TMsgDlgButtons()<<mbOK,0); }

---

Message d'avertissment

Citation:

---

[C++ Avertissement] Unit1.h(63): W8022 '_fastcall TForm1::Click(TObject *)' cache une fonction virtuelle '_fastcall TControl::Click()'

---

J'respère que cela correspond à tes désirs.

Bonsoir à tous,

cela fonctionne désormais sans problème.
En fait j'avais un peu tout mélangé et je passais en paramètre de ma méthode pour l'argument de type TNotifyEvent ceci :

Code:

---

&this->mamethode

---

En revenant à la simplicité et en mettant

Code:

---

mamethode

---

tout fonctionne !

Merci pour votre aide !