Foros Club Delphi - Como Crear un TabSheet en Tiemo de Ejecucion

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Como Crear un TabSheet en Tiemo de Ejecucion (https://www.clubdelphi.com/foros/showthread.php?t=2808)

Michel

07-08-2003 21:35:07

Como Crear un TabSheet en Tiemo de Ejecucion

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

08-08-2003 00:43:32

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:

Código:

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

La franja horaria es GMT +2. Ahora son las 11:37:11.