TMenuItem.OnClick et TNotifyEvent

Je cherche à créer de toute pièce les items d'un menu et à associer à leur évènement OnClick des fonctions spécifiques à chacun. Je part d'une déclaration var pm : TPopupMenu; Item:TMenuItem; puis dans une boucle, je cré le menu du popup
for i:=0 to n
do begin
Item := TMenuItem(pm);
Item.Onclick := <ma fonction/procedure dans ce cas>
end;

le problème est que je ne sais pas créer une procédure que je pourrai affecter à l'évènement OnClick du TMenuItem. :?:
Merci pour toute info utile!

Tout ce que tu as a faire c'est de déclarer un procedure comme suit

Code:

---

1 2 3 4 5

Procedure MaReponseMenu1( Sender : TObject); Begin //La tu mets ton code End;

---

Puis dans ta procedure de déclaration des options :

Code:

---

1 2	OnClick := MaReponseMenu1;

---

Voila, c'est tout Pour déclarer une procedure qui appartient à type de procedure, il suffit que la déclaration soit correcte, c'est tout.

Ben justement, si t'essai, tu verras que la réponse du compilateur est qu'il ne faut pas confondre un TNotifyEvent et une procedure. Et c'est là que je bloque.
Comment lui déclarer une procédure pour qu'elle soit associée à une variable dee type tNotifyEvent ?

C'est que kwasin a oublié une chose, il faut déclarer la procédure en tant que méthode d'une fiche :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

type TForm1 = class(TForm) ... public { Déclarations publiques } Procedure MaReponseMenu1( Sender : TObject); end;   ...   Procedure TForm1.MaReponseMenu1( Sender : TObject); Begin //La tu mets ton code End;

---

Merci pour le complément d'info, ça marche !
:)