Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   PageControl {El Muy Mencionado} (https://www.clubdelphi.com/foros/showthread.php?t=8804)

GeoAvila 02-04-2004 01:24:54

PageControl {El Muy Mencionado}
 
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 02-04-2004 01:29:41

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

// Saludos

__cadetill 02-04-2004 01:33:46

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

Código:

  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 02-04-2004 01:55:27

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

Esque soy nuevo en delphi

lacovera 01-03-2007 13:16:56

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

Lepe 01-03-2007 13:28:19

Aqui lo tienes.

Saludos

dec 01-03-2007 13:37:19

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":

Código Delphi [-]
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;


La franja horaria es GMT +2. Ahora son las 05:02:29.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi