Discussion :

[Lucien]

Je crée à l'exécution les éléments de menu qui correspondent aux grades réellement présents dans une table. Parfait!
Je ne sais pas leur effecter la procédure qui répondrait à leur clic: c'est toujours la même dont seul change le titre connu à travers TmenuItem(sender ).caption
Le compilateur m'informe qu'elle n'est pas TNotifyEvent...
Je n'ai encore rien trouvé dans l'aide....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    while not eof do
    begin
      NewItem := TMenuItem.Create(grd_par_grade);
      try
        NewItem.Caption :=fieldByName('gra_nom').AsString;
        grd_par_grade.Insert(i, NewItem);
        grd_par_grade[i].OnClick:=Afficher_par_grade(sender);// ici le drame ! 
        inc(i);
      except
        NewItem.Free;
        raise; { redéclenche l'exception }
      end;
      next;
    end;

merci de votre aide !

[skywaukers]

bonjour,

as-tu essayé ceci :

Code :

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

grd_par_grade[i].OnClick:=Afficher_par_grade;

@++
Dany

[Lucien]

Merci skywaukers
tu viens de me donner la réponse !