TPageControl en tiempo de ejecución

[roman]

Empezado por esocrates

Pero no sé cómo crearlo con un Memo en su interior

[...]

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

end;

Debes asignar el TabSheet recién creado a la propiedad Parent del Memo.

// Saludos

[esocrates]

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

Empezado por roman

Debes asignar el TabSheet recién creado a la propiedad Parent del Memo.

// Saludos

Pruebo con tu indicación y no me sale.
¿Cómo sería el código para esta asignación?
Muchas gracias

[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

[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

[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