Discussion :

[mechatikhaled]

bonjour
je veux créer un menu en programmation, le code marche bien mais l'idée c'est de créer un message qui affiche le caption du menu et je ne sais pas combien je doit creer le composant menu pour cela je ne sais pas comment répéter le procedure TMClick
je veut creer tant que des menus et l'événement onclick affichera le caption du menu

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
 
procedure TForm1.FormCreate(Sender: TObject);
var TM,TM1:TmenuItem;
begin
 TM:= TMenuITem.Create(self);
 TM.Caption:='test';
 TM.Name:='test';
 TM.OnClick:=TmClick;
 Form1.MainMenu1.Items[3].Add(TM);
 TM1:= TMenuITem.Create(self);
 TM1.Caption:='test1';
 TM1.Name:='test1';
 TM1.OnClick:=TmClick;
 Form1.MainMenu1.Items[3].Add(TM1);
end;
 
procedure TForm1.TmClick(Sender: TObject);
begin
  showmessage('hello');
end;

[Cl@udius]

Salut

Utilise le Sender de l'évènement OnClick:

Code :

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

1
2
3
4
procedure TForm1.TMClick(Sender: TObject);
begin
  ShowMessage(TMenuItem(Sender).Caption);
end;

@+ Claudius