Como Crear un TabSheet en Tiemo de Ejecucion

[Michel]

Como estan amigos foreros


Tengo un PageControl q este a su vez puede contener varios TabSheet, en Modo de Diseño le doy Boton derecho al page control y luego le doy click a "NEW PAGE".

Ahora yo quisiera hacerlo en modo de Ejecucion crear los tabSheet que se desee.

Se lo Agradesco Mucho GRACIASSSSSSS

He Colocado


Var

pcForms: TRzPageControl;
TabSh1: TRzTabSheet;
.
.
.
.
.





begin
tabsh1.PageControl:= pcForms;
end;

[Ruben_Cu]

Hola Michel, se supone que ya tienes el PageControl en un formulario, entonces el código siguiente te crea 10 TabSheet al hacer clic en el botón:

procedure TForm1.Button1Click(Sender: TObject);
var i:Byte;
begin
        for i:=1 to 10 do
        with TTabSheet.Create(Self) do
        begin
                PageControl := PageControl1;
                Name:='Mitab'+IntToStr(i);
                Caption := name;
        end;
end;

Espero te valga el ejemplo.
Saludos