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 !