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.