Discussion :

[julesclaude]

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

Code :

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

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.

[ero-sennin]

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 :

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

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 :

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

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 :

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

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+

[julesclaude]

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

Code :

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

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

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

merci d'avance

[julesclaude]

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