Nueva Pagina con PageControl

[Enan0]

Gracias Neftali, Me pondre a investigar sobre lo que me pasaste.. cualquier cosa vuelvo a postear.

[Enan0]

Bueno aca estoy intentado Crear una nueva Pagina (TabSheet, creo que esto es la pagina).
Se que algo estoy haciendo mal, pero la verdad no se que es.

Código Delphi [-]

  procedure TfrmStatus.CrearPagina(s: string);
  var
i:integer;
  
  begin
 i:=PControl.PageCount +1; // Incremento el Contador del PageControl
   Pages[i]:= TTabSheet.Create(nil);
   Pages[i].Name:='P'+Copy(s,2,Length(s)); //cambio el Nombre
   Pages[i].Visible :=true;
   Pages[i].Caption:=s;
   PControl.ActivePage:=Pages[i];
  end;

[Neftali [Germán.Estévez]]

Creo que te está liando; Además me has cambiado el códio a medio modificar, de todas formas, lo primero que debes hacer es crear el objeto y luego asignarle las propiedades correctas.

Revisa el siguiente código:

Código Delphi [-]
 procedure TForm1.Button2Click(Sender: TObject);
 var
    Aux:TTabSheet;
 
   procedure CrearPagina(s: string);
   begin
     Aux := TTabSheet.Create(PControl.Owner);
     Aux.Name := 'Copia_de_' + s;
     Aux.PageControl := PControl;
     Aux.Caption := Aux.Name;
     PControl.ActivePageIndex := (PControl.PageCount - 1);
   end;
 
 
 begin
   CrearPagina(PControl.ActivePage.Name);
 end;

[[Ohcan]]

Hola

Creo que te falta

Código Delphi [-]
  Pages[i].PageControl := PControl;

Saludos.