Modificar TMenuItem

[ecfisa]

Hola Angel.Matilla

Empezado por Angel.Matilla

...
Ahora no me da el error, pero sigue colgando el submenú de Opción 7. El primer elemento del menú ¿no es el ítem 0?

Fijate si este ejemplo es similar a lo que estas buscando.

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 for (int i = 0; i < 8; i++) {
    TMenuItem *mi = new TMenuItem(MainMenu1);
    mi->Caption = "Opción &" + IntToStr(i+1);
    MainMenu1->Items->Add(mi);
  }
  // mostrar leyenda e índice correspondiente en ListBox
  for (int i = 0; i < MainMenu1->Items->Count; i++)
    ListBox1->Items->Add(MainMenu1->Items->Items[i]->Caption
      + "      " + IntToStr(i)) ;
}

void __fastcall TForm1::CreateItems(const AnsiString parentCapt)
{
  for (int i = 0; i < MainMenu1->Items->Count; i++ ) {
    if (MainMenu1->Items->Items[i]->Caption == parentCapt) {
      for (int j = 1; j <= 3; j++) {
        TMenuItem *mi = new TMenuItem(MainMenu1);
        mi->Caption = "Prueba " + IntToStr(j);
        MainMenu1->Items->Items[i]->Add(mi);
      }
      break;
    }
  }
}

void __fastcall TForm1::btSubItemsClick(TObject *Sender)
{
  CreateItems("Opción &8");
  btSubItems->Enabled = False;
} 


Salida:


Saludos