FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
PageControl me produce desbordamiento de pila
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; Que puede estar pasando?. Última edición por apicito fecha: 24-09-2003 a las 12:40:08. |
#2
|
||||
|
||||
Me auto respondo por si pudiera interesarle a alguien. Así funciona correctamente:
Código:
procedure TPrincipal.Sesiones; var Sesion:TSesion; PaxNum:Integer; Pax:TtabSheet; Begin with TTabSheet.Create(self) do begin PageControl:=Paxinas; Name:='Paxina'+trim(inttostr(Contador)); Caption:='Sesiones'; PaxNum:=PageIndex; Pax:=Paxinas.Pages[PaxNum]; end; inc(Contador); Sesion:=TSesion.Create(Self); with Sesion do begin Parent:=Pax; Show; end; end; |
|
|
|