Caption de un menú

[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.