Lignes de menu inactive

Version imprimable

19/02/2003, 10h53
dhp

Lignes de menu inactive

Voici la source que j'utilise pour lire les sections d'un fichier Ini et ajouter leurs noms dans le menu appelé Matriel1.
Ceci marche très bien mais les lignes ajoutées au menu n'ont aucune action concrètes.
Comment affecter à chacune de ces lignes l'ouverture d'une fiche en l'occurrence dans mon appli: Form2.

procedure TForm1.FormCreate(Sender: TObject);
var
config: Tinifile;
NewItem: TmenuItem;
x: Integer;
begin
Config := TIniFile.Create('Sport.INI');
Config.ReadSections(combobox1.items);
Config.free;
for x := 0 to combobox1.items.count -1 do
begin
NewItem:=Tmenuitem.create(self);
combobox1.text:= combobox1.items[x];
newitem.Caption := combobox1.text;
Matriel1.Add(NewItem);
end;
end;

J'ai passé moultes pages de ce Forum et je n'y ai rien trouvé de concluant
19/02/2003, 12h06
zworg

As-tu consulté l'aide en ligne ?

Il faut affecter une valeur à la propriété NewItem.OnClick, en l'occurence l'ouverture de ta form.

Voilà du code explicatif :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    ComboBox1: TComboBox;
    Matriel1: TMainMenu;    // si j'ai bien compris ton cas ...
    procedure Button1Click(Sender: TObject);
    procedure OnMenuItemClick(Sender: TObject);
  private
...
implementation
uses inifiles;
...
procedure Tform1.OnMenuItemClick(Sender: TObject);
var mnu : TMenuitem;
begin  // exemple : affectation même gestionnaire à tous menuitems...
 mnu := sender as TMenuitem;
 showmessage('Menu cliqué = '+ mnu.caption);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
config: Tinifile;
NewItem, ParentMenu : TmenuItem;
x: Integer;
begin
  Config := TIniFile.Create('sport.ini');
  Config.ReadSections(combobox1.items);
  Config.free;
 
// si on veut les items dans un menu de base 'fichier' ...
  if Matriel1.Items.Count = 0 then
  begin
    ParentMenu := TMenuItem.Create(self);
    ParentMenu.Name := 'MnuFichier';
    ParentMenu.Caption := 'Fichier';
    Matriel1.Items.Add(ParentMenu);
  end;
 
  for x := 0 to combobox1.items.count -1 do
  begin
    NewItem:=Tmenuitem.create(self);
    NewItem.Caption := combobox1.Items[x];
    NewItem.OnClick := OnMenuItemClick;
    NewItem.Tag := x;   // utile quelquefois
    Newitem.Name := 'SousMenu'+inttostr(x);
  //  Matriel1.Items.add(NewItem);  <--- si  plusieurs menus de base 
    ParentMenu.Add(NewItem);   // <--- ou si tous dans 1 menu 'fichier'
  end;
end;

A+

Problème résolu

Après une 2 heures d'essai, voici le code complet de la fonction que je cherchais et ça marche.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 procedure Tform1.OnMenuItemClick(Sender: TObject); var mnu : TMenuitem; begin // exemple : affectation même gestionnaire à tous menuitems... mnu := sender as TMenuitem; Form2.show; end; procedure TForm1.FormCreate(Sender: TObject); var config: Tinifile; NewItem: TmenuItem; x: Integer; begin Config := TIniFile.Create('Sport.INI'); Config.ReadSections(combobox1.items); Config.free; for x := 0 to combobox1.items.count -1 do begin NewItem:=Tmenuitem.create(self); combobox1.text:= combobox1.items[x]; newitem.Caption := combobox1.text; Matriel1.Add(NewItem); NewItem.OnClick := OnMenuItemClick; end; end;
Plus court et plus compréhensible pour moi maintenant que j'ai trouvé.
Reste à sortir les données de Sport.Ini en fonction du newitem.caption sélectionné.

Merci pour m'avoir mis sur la voie!!!!