PageControl {El Muy Mencionado}

[GeoAvila]

Hola yo trabajo por lo regular con VB6 pero me estoy mudando a Delphi..

asi que tengo un pregunta..

en vb6 yo puedo poner un pagecontrol(o el similar), y crear las pestañas en las propiedades del control, pero me doy cuenta, y por mas que busque, el page control no posee esa cualidad.

si no posee esa cudad como hago para decirle cuantas pestañas tiene que tener y que contenido..

gracias a todos

[roman]

Haz click derecho sobre la componente y selecciona la opción "Add page".

// Saludos

[__cadetill]

No se si he entendido la pregunta, pero en diseño puedes añadir pestañas con el boton derecho encima del PageControl y New Page

En ejecución puedes saber el número mediante PageControl1.PageCount

Cada página es un objeto (TabSheet) que, a demás, es contenedor, por lo que puedes saber y recorrer sus elementos


for i := 0 TabSheet1.ComponentCount - 1 do
begin
// lo que quieras
end;


Bueno, si no era esto lo que querías.... especificamelo algo más y, con gusto, te responderé (u otro en su defecto) ;)

[GeoAvila]

Gracias por la pronta respuesta....
las dos respuestas dieron en el clavo

Esque soy nuevo en delphi

[lacovera]

Muy buenas!! y para añadir las pestañas en tiempo de ejecución saben como hacerlo???
Gracias"

[Lepe]

Aqui (http://www.clubdelphi.com/foros/showthread.php?t=22813&highlight=tabsheet+ejecucion) lo tienes.

Saludos

[dec]

Hola,

Parece que en el Hilo al que enlaza Lepe quedan algunas dudas al final... El siguiente código crea un "PageControl" y varios "TTabSheet":


procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
ts: TTabSheet;
pc: TPageControl;
begin
// Creamos un PageControl
pc := TPageControl.Create(Self);
pc.Parent := Self;
pc.SetBounds(10, 10, 400, 300);

// Y luego 5 nuevas pestañas
for i := 1 to 5 do
begin
ts := TTabSheet.Create(Self);
ts.PageControl := pc;
ts.Caption := 'Pestaña '+IntToStr(i);
end;

end;