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...