Discussion :

[korntex5]

Salut

j'ai une form qui hérite de TForm et qui contient un popupmenu qui a un événement OnPopup dans lequel j'ai mis une moulinette.

Et j'ai une autre form qui hérite de la première et donc du popup...

Comment faire pour que lorsque j'appelle le popup dans cette seconde form celui-ci déclenche le onpopup de la form mère et donc lance ma moulinette?

[Manopower]

Logiquement le popup hérité herite aussi de l'évenement codé dans la form ancêtre. A moins que tu n'ais codé un autre OnPopup dans ta form enfant et que tu n'ai pas précisé :
override; à la déclaration
Inherited; à l'implémentation

[korntex5]

ma form fille hérite du popup mais je n'ai pas créé sur ma fille de procédure OnPopUP avec dedans inherited, si c'est ce que tu veux dire...

en fait je voudrait que automatiquement l'événement déclenché dans la fille lance le OnPopup écrit dans la mère même si je ne l'ai pas écrit dans la fille

[Manopower]

Après test, je ne comprends pas ton problème

J'ai fait une appli avec 2 forms :

Form1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
type
  TForm1 = class(TForm)
    PopUpMenu1: TPopUpMenu;
    action1: TMenuItem;
    procedure PopUpMenu1Popup(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

Code :

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

1
2
3
4
procedure TForm1.PopUpMenu1Popup(Sender: TObject);
begin
  showmessage('Popup!');
end;

Puis Form2 héritant de Form1

Code :

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

1
2
3
4
5
6
7
8
type
  TForm2 = class(TForm1)
    Button1: TButton;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

Form principale du projet : Form2

l'évenement Onpopup se déclenche bien.

Vérifie que dans ta forme ancêtre tu as bien branché le popup à la form

bon courage !

[korntex5]

tout à fait tu as raison cela fonctionne bien le problème et je ne sais pas trop porquoi vient du fait que j'avais laissé trainer au début de la precédure mère un inherited qui faisait que cela ne marchait pas...

je pense que comme la mère de ma form mère n'avait pas de onpupup le inherited perturbait tout...

en tout cas merci bcp