Discussion :

[Neilos]

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 .

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 !

[bhahmed]

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

Code :

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

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 :

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

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 :

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

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

[yarp]

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

Code :

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

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

La fonction:

Code :

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

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

[Neilos]

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

Merci d'avance.

[yarp]

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 :

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

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

[bakaneko]

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

Création du MenuItem

Code :

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

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 :

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

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

Message d'avertissment

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

[Neilos]

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 :

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

&this->mamethode

En revenant à la simplicité et en mettant

Code :

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

mamethode

tout fonctionne !

Merci pour votre aide !