TMenuItem wird nicht angezeigt unter componentes?

[Lannes]

Hallo,
@xaromz:
die Menü-Items sind nicht in Components enthalten, ich wiederhol mich mal

Zitat von Lannes:

...ab TmainMenu (in Components enthalten) musst Du mit .Items weitersuchen.

@mimi:

hab es mal etwas umgebaut, jede caption wird jetzt um '...' erweitert:

Delphi-Quellcode:

procedure SetMenuItemsPPP(aMenuItem: TMenuItem);
var z     : Integer;
    aItem : TMenuItem;
begin
  for z := 0 to aMenuItem.Count-1 do
    begin
    aItem := aMenuItem.Items[z];
    aItem.Caption := aItem.Caption+' ...';
    if aItem.Count > 0 then
      SetMenuItemsPPP(aItem);//rekursiv
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,z : Integer;
    c : TComponent;
begin
  for i:=0 to ComponentCount-1 do
    begin
    c:=Components[i];
    if c.ClassParent = TMenu then //alle PopUp- und MainMenüs
    //if c is TMainMenu then
    //if c is TPopUpMenu then
      for z := 0 to TMenu(c).Items.Count-1 do
        begin
        TMenu(c).Items[z].Caption := TMenu(c).Items[z].Caption+' ...';
        SetMenuItemsPPP(TMenu(c).Items[z]);
        end;
    end;
end;