TMainMenu desde código

[ecfisa]

Empezado por elrayo76

Necesito que me indiquen como se puede crear un MainMenu completo desde código.
...

Hola elrayo76.

Un ejemplo básico de como crear por código, un mainmenu, la barra de menu, ítems y subítems:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  mm : TMainMenu;
  mt, mi, ms : array of TMenuItem;
  i, j ,k: Integer;
begin
  // MainMenu
  mm := TMainMenu.Create(Self);

  // Barra de menu
  for i := 0 to 2 do
  begin
    SetLength(mt, Length(mt) + 1);
    mt[i] := TMenuItem.Create(mm);
    mt[i].Caption := 'Titulo' + IntToStr(i + 1);
    mm.Items.Add(mt[i]);
  end;

  // Items
  for i := 0 to 2 do
    for j := 0 to 4 do
    begin
      SetLength(mi, Length(mi) + 1);
      mi[j] := TMenuItem.Create(mm);
      mi[j].Caption := 'Item' + IntToStr(j + 1);
      mm.Items[i].Add(mi[j]);
    end;

  // SubItems
  for i := 0 to 2 do
    for j := 0 to 4 do
      for k := 0 to 2 do
      begin
        SetLength(ms, Length(ms) + 1);
        ms[k] := TMenuItem.Create(mm);
        ms[k].Caption := 'SubItem' + IntToStr(i + 1);
        mm.Items[i].Items[j].Add(ms[k]);
      end;
end;

Saludos