Main Menu Dinamico
 

Hola todos como esta....
Mi dida es de como crear menus dinamicos con el componente main menu, y luego poder acceder al menu con el nombre con que he creado cada items....

cual quier ayuda que me puedan prestar.... les agradesco

Hola, la idea es ir creando objetos del tipo TMenuItem y modificando sus atributos.

Algo así:

Código Delphi [-]
var
  i: integer;
  NewItem: TMenuItem;
begin
  MainMenu.Items.Clear;
  
  for i := 1 to 4 do
  begin
          NewItem := TMenuItem.Create(MainMenu);
          MainMenu.Items.Add(NewItem); // no se como se le indica la posición
                                       // exacta, sólo lo hice con PopupMenu
          case j of
            1: begin
                 NewItem.Caption := 'aaaa';
                 NewItem.ImageIndex := 1;
                 NewItem.OnClick := EventoClick1;
               end;
            2: begin
                 NewItem.Caption := 'bbbbb';
                 NewItem.ImageIndex := 2;
                 NewItem.OnClick := EventoClick2;
               end;
            3: begin
                 NewItem.Caption := 'ccccc';
                 NewItem.ImageIndex := 3;
                 NewItem.OnClick := EventoClick3;
               end;
            4: begin
                 NewItem.Caption := 'ddddd';
                 NewItem.ImageIndex := 4;
                 NewItem.OnClick := EventoClick4;
               end;
          end;
    end;
end;

Revisa éstos dos links para crear elementos en run-time:

dynamically build a menu from an XML file
http://www.swissdelphicenter.ch/en/showcode.php?id=1285

create menuitems at runtime
http://www.swissdelphicenter.ch/en/showcode.php?id=812