En tiempo de ejecución creo una pagina en un PageControl y dentro de ella abro un formulario, con este codigo:
Código:
procedure TPrincipal.Sesiones;
var Sesion:TSesion;
PaxNum:Integer;
Begin
with TTabSheet.Create(self) do
begin
PageControl:=Paxinas;
Name:='Paxina'+trim(inttostr(Contador));
Caption:='Sesiones';
PaxNum:=PageIndex;
end;
inc(Contador);
Sesion:=TSesion.Create(Self);
with Sesion do
begin
Parent:=Paxinas.Pages[PaxNum];
Show;
end;
end;
Me da un error de desbordamiento de pila. Sin embargo si abro el formulario Sesión sin asignarle un parent no da problemas.
Que puede estar pasando?.