TMenuItem wird nicht angezeigt unter componentes?

[xaromz]

Hallo,

geh doch einfach rekursiv alle Komponenten Deiner Form durch:

Delphi-Quellcode:

procedure TForm1.AlleKomponentendurchlaufen;

  procedure Walk(aComponent: TComponent);
  var
    C: Integer;
  begin
    if (aComponent is TControl) or (aComponent is TMenuItem) then
    begin
      // hier Dein Code
    end;
    for C := 0 to aComponent.ComponentCount - 1 do
      Walk(aComponent.Components[C]);
  end;

begin
  Walk(Self);
end;

Gruß
xaromz