Caption de un menú

[[escafandra]]

Simplificando, no es necesario realizar tanto cast y se puede escribir así:

Código PHP:

void __fastcall TForm1::tres1Click(TObject *Sender)
{
  TMenuItem *I = static_cast<TMenuItem*>(Sender);
  while(I->Parent->Parent)
    I = I->Parent;
  Caption = I->Caption;
} 


Saludos.

[Angel.Matilla]

Gracias por las respuestas. Ayer, después de poner el mensaje y según apgaba el PC, me di cuenta de donde estaba equivocándome: Estaba buscando el Caption en la opción seleccionada y no en el menú definido. Por eso aparece el mensaje de error. En vez de

Query->ParamByName("Literal")->AsString = mOpcLis->Items[cOpcion.c_str()[0] - 48]->Caption;

tengo que poner

Query->ParamByName("Literal")->AsString = Menu->Items->Items[cOpcion.c_str()[0] - 48]->Caption;

[[escafandra]]

El código que te puse localice el caprino que buscas sin liarte con valores guardados en tu tag, requiere menos código y sirve para cualquier situación.

Saludos.

[Angel.Matilla]

Sí, no te lo niego. El problema es que el menú es dinámico y sus valores dependen de una serie de opciones que no tienen por qué repetirse; por eso es el follón de usar los tag de las opciones.

[[escafandra]]

Empezado por Angel.Matilla

Sí, no te lo niego. El problema es que el menú es dinámico y sus valores dependen de una serie de opciones que no tienen por qué repetirse; por eso es el follón de usar los tag de las opciones.

Es por eso por lo que hago el comentario. El código que propuse navega hasta el Ítem padre independientemente de las opciones existentes, sean dinámicas o no.

Saludos.

[Angel.Matilla]

Empezado por escafandra

Código PHP:

void __fastcall TForm1::tres1Click(TObject *Sender)
{
  TMenuItem *I = static_cast<TMenuItem*>(Sender);
  while(I->Parent->Parent)
    I = I->Parent;
  Caption = I->Caption;
} 


Par no variar tenías razón en tu sugerencia; es muchísimo más sencilla.