Procédure onclick sur sous-menus dynamique

Bonjour à tous,
J'ai crée dynamiquement des sous-menus par les quelques lignes qui suivent :

Code:

---

1 2 3 4 5 6

for i := 0 to base.RecnoCount-1 do begin xrubrique := tmenuitem.Create(mainmenu1); xrubrique.Caption := 'essai'+ inttostr(i); mainmenu1.items[0].Add(xrubrique); end;

---

Je ne sais pas à l'avance combien j'aurai d'enregistrements dans la base et donc de sous-menus, comment puis-je gérer la procédure OnClick de chaque sous-menu créé ?

Merci d'avance.

Salut,

Il te faut redéfinir la propriété OnClick pour chaque élément ...
Dans la partie public, tu définis une procédure qui sera en fait le traitement à effectuer lors du clic sur un Item du MainMenu :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

unit Unit1;   interface   uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus;   type TForm1 = class(TForm) Button1: TButton; MainMenu1: TMainMenu; gfdgd1: TMenuItem; procedure Button1Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } procedure OnClickItem(Sender: TObject); // Déclaration du OnClick ici (peut importe le nom de la procédure... ) end;

---

Une fois que tu as déclaré la procédure, on va l'implémenter ...
Ici, on ne va se contenter que d'afficher le Caption de l'Item cliqué

Code:

---

1 2 3 4

procedure TForm1.OnClickItem(Sender: TObject); begin ShowMessage(TMenuItem(Sender).Caption); end;

---

Et enfin, il nous faut lier la "procédure" (c'est plutôt un événement) à l'item lors de sa création :

Code:

---

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

procedure TForm1.Button1Click(Sender: TObject); var i:integer; xrubrique:TMenuItem; begin for i := 0 to base.RecnoCount-1 do begin xrubrique := TMenuItem.Create(MainMenu1); xrubrique.Caption := 'essai'+ IntToStr(i); xrubrique.OnClick:=OnClickItem; // C'est ici que ça se passe MainMenu1.Items[0].Add(xrubrique); end; end;

---

Voila ... il ne reste plus qu'à modifier à ta guise ce que doit faire tel ou tel item lorsque l'on clique dessus (moi je n'ai fait qu'un ShowMessage pour tous)
En espérant avoir put t'aider
A+ ;)

Tout d'abord merci pour ta réponse.
J'ai pris exactement l'exemple que tu m'as donné
à savoir

Code:

---

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

private { Déclarations privées } public { Déclarations publiques } procedure OnClickItem(Sender: TObject); end;   puis j'ai placé ma procédure dans la partie 'implémentation'   procedure OnClickItem(Sender: TObject); begin ShowMessage(TMenuItem(Sender).Caption); end;

---

à la compilation j'obtiens ce message d'erreur

Citation:

---

[Erreur] U_Principale.pas(30): Déclaration forward ou external non satisfaite : 'TF_Principale.OnClickItem'

---

merci d'avance

En fait je n'ai pas tout à fait recopier ton exemple, idiot que je suis.
Il marche trés bien et va certainement résoudre mon problème.
Merci pour cette réponse efficace et peut-être à bientôt sur le forum.
Claude