| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
 Publicado: Mie 08 Feb, 2017 7:53 pm Asunto: Caption de un menú |
 |
|
Tal vez os parezca un poco enrevesado el método, pero no se me ha ocurrido uno mejor.
Tengo el menú de la imagen (es un TPopUpMenu que monto de forma dinámica en función de un TRadioGroup), por ejemplo:
Cada una de las opciones del mismo tiene un valor Tag diferente dependiendo del contenido de la opción (70, 7111, 7112, etc.); el primer dígito indica él ItemIndex del TRadioGroup, el segundo la primera opción del menú (Desconocida, etc.) y los otros, si los hay, la opción de cada uno de los siguiente submenús. Parece un poco complejo, pero es fácil en serio.
Por necesidades de la aplicación, para no tener que estar añadiendo código complejo e innecesario, me intesaría poder sacar el caption de la primera opción del menú. Por ejemplo: si he seleccionado Banco > Ctas. correctas > Por entidad me interesa quedarme con el valor Banco. Hay que tener en cuenta que las opciones pueden variar de una ejecución a otra.
En el evento OnClick del menú tengo definido esto:
| Código: | void __fastcall TfLisPer::MenuClick(TObject *Sender)
{
TMenuItem *mOpcLis = ((TMenuItem *)Sender);
RadioGroup1->Tag = mOpcLis->Tag;
RadioGroup1Exit(NULL);
return;
}
//--------------------------------------------------------------------------- |
pero cuando voy a coger el caption con
| Código: | Query->ParamByName("Literal")->AsString = mOpcLis->Items[cOpcion.c_str()[0] - 48]->Caption; |
Ese cOpcion guarda el tag del TMenuItem seleccionado como un AnsiString. Al pasar por esa línea de código me da un error Menu index out of range.
En esencia ¿Cómo pudo acceder al caption de las opciones de nivel superior en un TPopUpMenu?
_________________
Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA) |
|
| Volver arriba |
|
 |
escafandra
Master
Registrado: 29 Nov 2007Mensajes: 625Ubicación: Madrid - España
|
| Publicado: Jue 09 Feb, 2017 1:55 am Asunto: |
|
|
Lo siguiente asigna el Caption del formulario con el Caption del ItemMenu padre de toda la lista de submenús:
| Código: |
void __fastcall TForm1::tres1Click(TObject *Sender)
{
TMenuItem *I = static_cast<TMenuItem*>(Sender);
while(I->Parent->Parent)
I = I->Parent;
Caption = I->Caption;
}
|
Saludos. |
|
| Volver arriba |
|
|
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
| Publicado: Jue 09 Feb, 2017 9:43 am Asunto: |
|
|
Gracias por la respuesta. 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
| Código: | Query->ParamByName("Literal")->AsString = mOpcLis->Items[cOpcion.c_str()[0] - 48]->Caption; |
tengo que poner
| Código: | Query->ParamByName("Literal")->AsString = Menu->Items->Items[cOpcion.c_str()[0] - 48]->Caption; |
_________________
Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA) |
|
| Volver arriba |
|
|
escafandra
Master
Registrado: 29 Nov 2007Mensajes: 625Ubicación: Madrid - España
|
| Publicado: Jue 09 Feb, 2017 3:12 pm Asunto: |
|
|
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. |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
