A ver como me explico. En un evento OnExit de un TLabeledEdit tengo, en parte, este código:
Código PHP:
void __fastcall TfTablas::EntidadExit(TObject *Sender)
{
TCustomEdit *Edit = dynamic_cast<TCustomEdit *>(Sender);
try
{
[Verificaciones]
}
catch(Exception &Exc)
{
Application->ShowException(&Exc);
Edit->SetFocus();
return;
}
}
Una vez que he hecho las comporbaciones necesarias necesito "ver" el resto de elementos de ese objeto (en todos los casos es un TPanel) y estoy haciendo esto:
Código PHP:
TComponent *Source = Edit->Parent;
TPanel *pParent = static_cast<TPanel*>(Source);
int nItem = pParent->ComponentCount;
Todos los TPanel del formulario tienen al menos un TLabeledEdit pero entre por donde entre, al llegar a esa última línea siempre me da un valor cero. He comprobado que ese Edit->Parent coincide con el que debiera ser, pero ya no sé como coger el toro por los cuernos.