Discussion :

[kwekwe]

Bonjour à tous,

pour faire suite à ce sujet, je souhaite savoir comment identifier le fait que mon entrée de menu possède un élément enfant.

J'ai cherché à vois les propriétés disponible et je n'ai rien trouvé de ce côté.

D'avance merci

[kwekwe]

Devenu sans objet... En effet, la réponse est dans le sujet cité au dessus.

Mea culpa.

[ShaiLeTroll]

TMenuItem.Count

EDIT : Tu vois quand tu veux !

[kwekwe]

Oui tu as raison, d'où la cloture du sujet !

Par contre juste en passant, la procédure proposée dans le sujet précédent ne compile pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure ShowAllMenu(AItems: TMenuItem);
var
  i: integer;
begin
  for i := 0 to AItems.Count - 1 do
  begin
    ShowMessage(AItems.Items[i].Caption);
    ShowAllMenu(AItems.Items[i].Items);
  end;
end;

Il y a l'erreur suivante :

Code :

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

[Pascal Erreur] FrmMain.pas(2438): E2029 '[' attendu(e) mais ')' trouvé(e)

J'ai juste fait ca pour que ca fonctionnr :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure ShowAllMenu(AItems: TMenuItem);
var
  i: integer;
begin
  for i := 0 to AItems.Count - 1 do
  begin
    ShowMessage(AItems.Items[i].Caption);
    ShowAllMenu(AItems.Items[i]);
  end;
end;

a+