Obtener componente padre

[luisgutierrezb]

Bueno, yo detecto varias cosillas, primero:

Código Delphi [-]
vComponente:= TDbEdit(vForm.Components[i]).GetParentComponent; <---- aqui

el parent de un dbedit en un pagecontrol es un TTabSheet, y despues el pagecontrol...
otra, la linea de codigo hace un cast inutil, porque da lo mismo si fuera asi:

Código Delphi [-]
vComponente:= vForm.Components[i].GetParentComponent;
//para que nos regrese el pagecontro, podria ser asi:
vComponente:= vForm.Components[i].GetParentComponent.GetParentComponent; //si doble, para que regrese 2 atras...

yo pienso que el error de la incompatibilidad es en esta linea:

Código Delphi [-]
for a:= 0 to vComponente.Tabs.Count - 1 do

porque vComponente es del tipo Component, no TPageControl, aqui si, hay que hacer el Cast...