TPageControl en tiempo de ejecución

[esocrates]

Estoy experimentando con un editor de textos con un TPageControl con la idea de poder tener disponibles varios archivos simultáneamente cada uno con su respectiva solapa. Cada TTabSheet contiene un Memo.
No consigo crear un nuevo TTabSheet en el TPageControl en tiempo de ejecución [para crear un nuevo archivo]. En el evento click [Archivo nuevo... ] intento con este código sin respuesta alguna.

TTabSheet.Create(PageControl1);

Les agradeceré me orienten .
Muchas gracias y hasta pronto

[roman]

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

// Saludos

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

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

[[eduarcol]]

Upsss, perdon como que eche a perder la clase

[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

[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

[jachguate]

Empezado por eduarcol

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

Esto equivale a decir que cualquier arquitecto puede construir, pero no cualquier constructor puede diseñar...

Quizas en algunos casos, pero no cualquiera... no me parece que sea correcto.

Hasta luego.

[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