Foros Club Delphi - Modificar TMenuItem

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Modificar TMenuItem (https://www.clubdelphi.com/foros/showthread.php?t=89785)

Modificar TMenuItem

Tengo un componente TMenuItem en el que necesito, en función de unos parámetros, que en una de las opciones se cree un submenú. He estado probando esto:

Código:

void __fastcall TForm1::FormCreate(TObject *Sender)

{

     TMenuItem *mItem0 = new TMenuItem(this);

     TMenuItem *mItem1 = new TMenuItem(this);



     for (int nItem = 0; nItem < MainMenu1->Items->Count; nItem ++)

     {

          if (StringReplace(MainMenu1->Items->Items[nItem]->Caption, "&", "", TReplaceFlags() << rfReplaceAll) == "Opción 8")

          {

               mItem0 = (TMenuItem *)this->Components[nItem];

               mItem0->Add(mItem1);

               mItem1->Caption = "Prueba 1";



               mItem0 = (TMenuItem *)this->Components[nItem];

               mItem0->Add(mItem1);

               mItem1->Caption = "Prueba 2";

               

               mItem0 = (TMenuItem *)this->Components[nItem];

               mItem0->Add(mItem1);

               mItem1->Caption = "Prueba 3";

               break;

          }

     }

}

Pero al tratar de insertar la segunda opción del submenú (Prueba 2) me salta este error:

Cita:

exception class EMenuError with message 'Menu inserted twice'

Además ese ítem Prueba 1 me lo inserta en la Opción 7 del TMainMenu en vez de en la que me interesa.

Vale. Parte del problema lo he solucionado. Simplemente se me había olvidado crear el nuevo TMenuItem. :o

Sin embargo, me sigue creando el submenú en la opción anterior a la que me interesa:

Código:

void __fastcall TForm1::FormCreate(TObject *Sender)

{

     TMenuItem *mItem0 = new TMenuItem(this);

     TMenuItem *mItem1 = new TMenuItem(this);



     for (int nItem = 0; nItem < MainMenu1->Items->Count; nItem ++)

     {

          mItem0 = (TMenuItem *)this->Components[nItem];

          if (StringReplace(MainMenu1->Items->Items[nItem]->Caption, "&", "", TReplaceFlags() << rfReplaceAll) == "Opción 8")

          {

               mItem1 = new TMenuItem(mItem0);

               mItem0->Add(mItem1);

               mItem1->Caption = "Prueba 1";



               mItem1 = new TMenuItem(mItem0);

               mItem0->Add(mItem1);

               mItem1->Caption = "Prueba 2";



               mItem1 = new TMenuItem(mItem0);

               mItem0->Add(mItem1);

               mItem1->Caption = "Prueba 3";

               break;

          }

     }

}

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?

Hola Angel.Matilla

Cita:

Empezado por Angel.Matilla (Mensaje 501915)

...
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 :)

Sí, el primer elemento es cero.

No tiene sentido el error, porque comparas directamente con el caption "opción 8". El error debe estar por otro lado.

Por cierto, las dos primeras líneas sobra el "= new TMenuItem...", porque mItem0 lo vas a usar como puntero a un elemento ya creado. El mItem1, lo creas manualmente.

No pasa mucho porque has puesto que el dueño (Owner) será el Form, así que él lo destruirá cuando termine, pero no tiene sentido dejarlo así.

¿Para qué todo eso?
Entiendo que hace, pero no sé por qué lo haces.

Yo por ejemplo no me guiaría del caption de los menúes (es muy común que una vez terminada la aplicación, quieras cambiar un Caption, porque es más descriptivo que el original, hay 2 muy parecidos, etc), yo más bien:
- asignaría el "mItem0->Name" por código y es lo que usaría para buscar con FindComponent
- o simplemente mantendría un puntero al elemento que tendrá submenues, así no tienes que buscarlo en tiempo de ejecución (evitas el bucle principal por el TMainMenu).

Pero eso depende de qué flexibilidad quiere que tengas tus menús.

Podrías guardar el Name, Caption y Owner.name en la Base de datos, en un .ini o como quieras, evitas bucles y la programación es más simple.

Saludos.

Gracias a los dos por los comentarios. Me han ayudado mucho.

Cita:

Empezado por Lepe (Mensaje 501918)

Por cierto, las dos primeras líneas sobra el "= new TMenuItem...", porque mItem0 lo vas a usar como puntero a un elemento ya creado. El mItem1, lo creas manualmente.

Cierto. Ya las eliminé.

Cita:

Empezado por Lepe (Mensaje 501918)

Entiendo que hace, pero no sé por qué lo haces.

Es que en función de otras opciones que se seleccionan en el formulario varían las opciones del menú. Una alternativa sería habilitar o no (Enabled true o false) las que se puedan elegir.