Hola Angel.Matilla
Cita:
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