TPageControl en tiempo de ejecución

[esocrates]

Empezado por roman

¿De qué manera estás intentando la última asignación que te indiqué?

No lo puedes hacer con un simple

with TTabSheet.Create(Self)

ya que necesitas una referencia al objeto para poder asignarlo. Dicho de otra forma necesitas una variable para almacenar el objeto que te devuelve Create.

// Saludos

Intento asignarlo de la sgte manera:

begin
    TTabSheet.Create(Self); 
     TMemo.Create(Self);
    with TTabSheet.Create(Self) do
    begin
      PageControl := PageControl1;

    end;
     Memo1.Parent := TabSheet1;
end;

Se crea el TabSheet pero no está el Memo en su interior.
Un saludo y disculpa la insistencia; estoy en los comienzos.

[jachguate]

Es que TabSheet1 no apunta a ninguno de los dos tabshets recien creados...

tenes que hacer que el parent sea el tabshet que queres que sea su contenedor...

Hasta luego.

[esocrates]

Empezado por jachguate

Es que TabSheet1 no apunta a ninguno de los dos tabshets recien creados...

tenes que hacer que el parent sea el tabshet que queres que sea su contenedor...

Hasta luego.

Eso es lo que precisamente no sé hacer. Por eso les pido que lo que me están explicando lo acompañen de algún código de ejemplo; o corrijan el mío.
Me doy cuenta que mi error es de concepto. Eso es lo que más me preocupa.
No tengo urgencia. Lo que quiero es aprender.
Un saludo y gracias por ayudarme.

[[eduarcol]]

var
   MiHoja: TTabSheet;
begin
   MiHoja :=  TTabSheet.Create(Self)
   MiHoja.PageControl := PageControl1;

   with TMemo.Create(Self) do
       Parent := MiHoja;
end;

Eso es todo

[esocrates]

Hola Eduarcol:
Estoy estudiando tu código que me ha sido muy útil:

var
   MiHoja: TTabSheet;
begin
   MiHoja :=  TTabSheet.Create(Self);
   MiHoja.PageControl := PageControl1;

   with TMemo.Create(Self) do
       Parent := MiHoja;
end;

ESto permite crear tanto un TabSheet como un Memo dentro del mismo.
Ahora Bien: El Memo creado no toma las dimensiones del TabSheet.
La referencia que da Delphi dice que la propiedad Width no funciona para los Controles contenidos en los TabSheet creados en tiempo de ejecución.
Te agradeceré me orientes para conseguir que el Memo creado tome las dimensiones del TabSheet.
Un saludo y hasta pronto

[__cadetill]

Dale valor a la propiedad Align a alClient del TMemo

....
with TMemo.Create(Self) do
  Parent := MiHoja;
  Align := alClient;

[[eduarcol]]

Ubica la propiedad Align del Memo y colocala ALClient
Align := AlClient;

Esta propiedad tiene los valores

    AlClient :=  Se alinea en toda el area del contenedor
    AlRigth  :=  Se alinea a la derecha del area del contenedor
    AlLeft   :=  Se alinea a la izquierda del area del contenedor
    AlTop   :=  Se alinea en la parte superior del area del contenedor
    AlBottom   :=  Se alinea en la parte inferior del area del contenedor

[[eduarcol]]

Como que respondimos al mismo tiempo

[Rowerto]

Hola de nuevo. Aunque no posteo mucho si que entro casi a diario al foro para resolver mis dudas.

En esta ocasion resubo este hilo (bastante antiguo por lo que veo, pero lo prefiero a crear otro nuevo, razones obvias), porque la duda que tengo va en la linea. Tenia en un primer momento la misma duda que tenia esocrates, la de como crear un tabsheet y dentro de este una stringgrid en tiempo de ejecucion y lo dicho, gracias a la ayuda del propio Delphi y de este hilo lo he logrado.
Pero a raiz de esto, tengo otra duda. Y os explico un poco de como va el programa en el que estoy currando ahora para que me podais ayudar mejor.

Yo abro un/os fichero/s y recojo en un primer momento ciertos datos que necesito.
Esta info es el nombre de un sitio, su matricula y el dia de "autos" (como en cualquier producto: tipo, referencia y dia).
Si este sitio no tiene pestaña propia, debo crear una (en tiempo de ejecucion) con su propio stringgrid asociado, y de existir debo pasar la hoja de ese sitio y por ende su stringgrid. Una vez hecho esto relleno la grid con los datos del fichero abierto.
Yo consigo hacerlo todo salvo pasar el stringgrid asociado a la hoja con el sitio.
Os paso algo de codigo para que se entienda "mejor":

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var   tabs : ttabsheet;
      stri : tstringgrid;   //hay mas variables, pero pongo solo las que creo que os seran necesarias saber el tipo para entenderlo
begin
  memo1.Lines.Clear;  //en este memo (se que se puede hacer con otras cosas) meto los nombres de los ficheros que abro desde el dialogo
          //de apertura
  opendialog1.Execute;
  memo1.Lines :=opendialog1.Files;
  for y:=0 to memo1.Lines.Count-1 do  //recorro el memo para abrir todos los ficheros seleccionados antes
  begin
    memo2.Lines.LoadFromFile(memo1.Lines[y]);//copio el contenido de cada fichero independiente

    {recojo la informacion que necesito para ver si ya existe, aunque tampoco lo pongo
     matricula y centro que son unas strings}

    compara:=0;
    for z:=0 to pagecontrol1.PageCount-1 do    //miro pagina por pagina el caption y de ser igual paso en compara el numero
    begin
      if comparestr(trim(PageControl1.Pages[z].Caption), trim(trim(centro)+trim(matricula)))=0
      then begin
        compara:=z+1;    //pasa el numero de pagina (o 0 en su defecto si llega al final y no encuentra ninguno)
      end;
    end;       //posiblemente este bucle se pueda juntar con el proximo IF, cosa a revisar cuando todo funcione

    if compara - 1  = 0   //si no encuentra un caption igual creo tanto la tab como la grid (y sus dimensiones)
    then begin
      tabs := TTabSheet.Create(PageControl1);
      tabs.PageControl := PageControl1;
      tabs.Name := 'TabSheet'+inttostr(pagecontrol1.PageCount+1);
      memo3.Lines.Add(tabs.name);
      tabs.Caption := trim(centro)+trim(matricula);
      stri := tstringgrid.Create(self);
      stri.Parent := tabs;
      stri.Name := 'StringGrid'+inttostr(pagecontrol1.PageCount+1);
      stri.Visible:=true;
      stri.ColCount:=8;
      stri.FixedCols:=0;
      stri.RowCount:=3;
      stri.FixedRows:=2;
      stri.Width:=529;
      stri.Height:=601;
      stringcabecera(stri);
    end
    else begin     // y si lo encuentra le paso la pagina y la grid
      tabs := PageControl1.Pages[z];
      stri := ///////////AQUI LO QUE ME FALTA que es el grid que hay en ese pagecontrol1.pages[z]
    end;

    {aqui viene todo el troncho de rellenado de datos que elimino para que se entienda mejor el resto}

  pagecontrol1.ActivePage:=tabs; //activo la pagina (sea nueva o no)

  end;
end;

Espero que me podais ayudar, porque no se ni por donde empezar.
Perdon por el tronchazo que os acabo de soltar y gracias de antemano!!

[roman]

Empezado por esocrates

Me doy cuenta que mi error es de concepto.

Y precisamente por eso no te escribimos el código. No lo tomes a mal, pero si te escribimos el código tal cual entonces no vas a entender el concepto.

Para que el Memo aparezca dentro del TabSheet debes asignarle dicho TabSheet a su propiedad Parent:

Memo.Parent := tab sheet

Lo que tienes que contestarte es: ¿Quién es dicho tab sheet?

Una vez que lo sepas sabrás también qué valor debe tener TabSheet1 antes de asignárselo a Memo1.Parent.

// Saludos

[[eduarcol]]

Upsss, perdon como que eche a perder la clase

[jachguate]

Está bien. Ahora como ha apuntado roman... es decisión del "alumno" que hacer con la información obtenida.

Has escuchado alguna vez esto:

Empezado por Confucio

No le des un pez.. mejor enseñale a pescar?

Si esocrates o cualquier otro ha de permanecer en el mundo de la informática, mejor es que se acostumbre a buscar en la documentación, leer libros, y quemarse las pestañas (yt las neuronas) delante del monitor, intentando y consiguiendo, sobre todo, mejorar sus técnicas de investigación y su habilidad para encontrar información.

La sintaxis... eso es cosa simple. Las ideas, esas si que son complejas....

Hasta luego.

[[eduarcol]]

Empezado por jachguate

La sintaxis... eso es cosa simple. Las ideas, esas si que son complejas....

De hecho yo pienso que todos los programadores deberian estar a nivel en conocimientos que los desarrolladores y los diseñadores de sistemas, asi los programas mejorarian su calidad, porq recuerden q:

Todo Diseñador de Sistemas puede Programar, Pero no todo Programador puede diseñar Sistemas.

Deberiamos cambiar eso

[roman]

Bueno, mi respuesta llegó un poco después de la de eduarcol así que será ya tu decisión tratar de entender el concepto y no sólo copiar el código.

// Saludos

[esocrates]

Empezado por roman

Bueno, mi respuesta llegó un poco después de la de eduarcol así que será ya tu decisión tratar de entender el concepto y no sólo copiar el código.

// Saludos

No sólo que no lo tomo a mal sino que estoy muy agradecido con Uds.
Utilizar código hecho por los que más saben es una menera de empezar en esto, así creo.
Mi intención siempre ha sido entender el concepto. Creo que es el espíritu de este Foro y la gran ayuda que brinda.
Hoy Uds. me han dado mucho para empezar a entender un poco todo esto.
Un saludo y hasta pronto