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

[elrayo76]

ecfisa, esta muy bien lo que pones. Pero tengo una duda con respecto a los subitems.

Como harías para agregar más subitems sin necesidad de hace otro ciclo para los nuevos subitems. Mira que un menu puede tener varios subitems que a su vez son contenedores de otros subitems. Además lo que quiero hacer es algo mas genérico porque no se cuantos niveles pueden haber en el manú. Lo que se que no serán muchos porque los limitaré para no hacer interminable la búsqueda de una opción.

Saludos,
El Rayo

[ozsWizzard]

Mucha gente lo desaconseja pero lo más genérico que se me ocurre para crear un algoritmo que cree "n" niveles es la recursividad.

[ecfisa]

Empezado por ozsWizzard

Mucha gente lo desaconseja pero lo más genérico que se me ocurre para crear un algoritmo que cree "n" niveles es la recursividad.

Hola ozsWizzard.

No veo por que habrían de desaconsejarlo... Yo creo que estas en lo correcto. Si no se conoce la profundidad y niveles que puede alcanzar, la recursividad es la solución natural para este caso.

Saludos.

[ozsWizzard]

Me lo han comentado compañeros algunas veces. Yo pienso como tú, conste