Problema al seleccionar en un TMainMenu

[ecfisa]

Hola.

Sinceramente no comprendí a fondo como es la situación pero si en algún punto alteras el valor de la propiedad Tag y luego deseas recuperarlo, tendrás que salvarlo antes.

Por ejemplo:

Código PHP:

void __fastcall TForm::Item1234Click(TObject *Sender)
{
  TMenuItem *mOpcMenu = static_cast<TMenuItem *>(Sender);

  // Guardar valor de Tag
  int oTag = mOpcMenu->Tag;

  mOpcMenu->Tag = 10 * mOpcMenu->Tag +  2
    - Mensaje(2, "¿Desea diferenciar situaciones?", "Sí\nNo");

  /*
    Generar el listado
  */

  // Restaurar valor de Tag
  mOpcMenu->Tag = oTag;
} 


Saludos