TPageControl en tiempo de ejecución

[esocrates]

Empezado por roman

Debes asignar PageControl1 a la propiedad PageControl del TabSheet recién creado.

// Saludos

Gracias por la respuesta.
Efectivamente con esta indicación he conseguido crear un nuevo TabSheet.
Pero no sé cómo crearlo con un Memo en su interior como lo he hecho en tiempo de diseño con el primer TabSheet.
Para ser más claro esta es la copia del código con el que ensayo la solución de este problema.

unit PageControl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    TTabSheet.Create(Self);
     TMemo.Create(Self);
    with TTabSheet.Create(Self) do
    begin
      PageControl := PageControl1;
    end;

end;

end.

Un saludo

[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.