Discussion :

[Jacques Deyrieux]

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!

[Louis Griffont]

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

Code :

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

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 :

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

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.

[Jacques Deyrieux]

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 ?

[Nono40]

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

Code :

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

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;

[Jacques Deyrieux]

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