Main Menu Dinamico

[[Crandel]]

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;