changer le texte de tous les Items dans un mainmenu

**C.M** · 25/07/2004, 11h26

salut dans un mainmenu je voudrais changer le texte de tous les Items
à partir d'un bouton.

Ceci ne fonctionne pas

Code :

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

1
2
3
4
5
var i: integer;
begin
  for i := 0 to pred(ComponentCount) do
      if Components[i] is TMenuItem(Sender) then
        TMenuItem(Sender).Caption:='bonjour'

Je ne sais pas comment faire...

**cadetill** · 25/07/2004, 12h05

Tu dois faire une function recursive

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
 
procedure TForm1.Button1Click(Sender: TObject);
 
  procedure ChangeCaption(Item: TMenuItem);
  var
    i: integer;
  begin
    for i := 0 to Item.Count - 1 do
    begin
      Item[i].Caption := 'BonJour';
      if Item[i].Count <> 0 then
        ChangeCaption(Item[i]);
    end;
  end;
 
begin
  ChangeCaption(MainMenu1.Items);
end;

.

**C.M** · 25/07/2004, 12h15

vous etes sur de votre code?

**cadetill** · 25/07/2004, 12h24

Envoyé par C.M

vous etes sur de votre code?

Oui, je l'ai testé, pourquoi? ça ne te marxe pas? ça te donne quelque erreur?

.

**cpdump** · 25/07/2004, 12h27

Envoyé par cadetill

Tu dois faire une function recursive
.

Tu n'est pas obligé de faire une fonction récursive, une double boucle est suffisant et plus efficace.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
	i,j : integer;
begin
	for i := 0 to Self.MainMenu.Items.Count - 1 do
    begin
       	Self.MainMenu.Items[i].Caption := 'bonjour';
    	for j := 0 to Self.MainMenu.Items[i].Count - 1 do
        begin
        	Self.MainMenu.Items[i].Items[j].Caption := 'bonjour';
        end; // for j
    end; // for i
end;