Foros Club Delphi
Página 1 de 2 1 2 >
Mostrar 40 mensajes desde este tema en una página

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   TPageControl en tiempo de ejecución (https://www.clubdelphi.com/foros/showthread.php?t=7823)

esocrates 27-02-2004 04:05:02
TPageControl en tiempo de ejecución
 
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.
Código:
TTabSheet.Create(PageControl1);
Les agradeceré me orienten .
Muchas gracias y hasta pronto

roman 27-02-2004 04:46:37
Debes asignar PageControl1 a la propiedad PageControl del TabSheet recién creado.

// Saludos

esocrates 27-02-2004 15:23:59
Cita:
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.
Código:
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 27-02-2004 15:53:14
Cita:
Empezado por esocrates
Pero no sé cómo crearlo con un Memo en su interior

[...]

Código:
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 27-02-2004 17:37:38
Código:
begin
    TTabSheet.Create(Self);
    TMemo.Create(Self);
    with TTabSheet.Create(Self) do
    begin
      PageControl := PageControl1;
    end;
Cita:
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 27-02-2004 18:01:55
¿De qué manera estás intentando la última asignación que te indiqué?

No lo puedes hacer con un simple

Código:
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 27-02-2004 18:58:15
Cita:
Empezado por roman
¿De qué manera estás intentando la última asignación que te indiqué?

No lo puedes hacer con un simple

Código:
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:
Código:
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 27-02-2004 19:01:04
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 27-02-2004 20:57:38
Cita:
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 27-02-2004 21:02:29
Código:
var
  MiHoja: TTabSheet;
begin
  MiHoja :=  TTabSheet.Create(Self)
  MiHoja.PageControl := PageControl1;

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

roman 27-02-2004 21:06:05
Cita:
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 27-02-2004 21:07:43
Upsss, perdon como que eche a perder la clase :rolleyes:

roman 27-02-2004 21:08:14
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 27-02-2004 21:36:07
Cita:
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 27-02-2004 21:38:30
Está bien. Ahora como ha apuntado roman... es decisión del "alumno" que hacer con la información obtenida.

Has escuchado alguna vez esto:

Cita:
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 27-02-2004 21:43:09
Cita:
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:
Cita:
Todo Diseñador de Sistemas puede Programar, Pero no todo Programador puede diseñar Sistemas.
Deberiamos cambiar eso

jachguate 27-02-2004 21:53:03
Cita:
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 28-02-2004 16:12:59
Hola Eduarcol:
Estoy estudiando tu código que me ha sido muy útil:
Código:
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 28-02-2004 16:15:53
Dale valor a la propiedad Align a alClient del TMemo

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

eduarcol 28-02-2004 16:19:18
Ubica la propiedad Align del Memo y colocala ALClient
Align := AlClient;

Esta propiedad tiene los valores

Código:
    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


La franja horaria es GMT +2. Ahora son las 03:01:52.
Página 1 de 2 1 2 >
Mostrar 40 mensajes desde este tema en una página

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