10 replies to this topic

[Caral]

Hola
Vamos a crear algunos componentes en ejecución, paso a paso.
Primero definimos que componentes usaremos, esto lo colocaremos como una variable general.

delphi

var
  Form1:      TForm1;
  PCInformacion: TPageControl;
  DTPFecha:   TDateTimePicker;
  Hoja1, Hoja2: TTabSheet;
  DataSource: TDataSource;
  DBGDatos:   TDBGrid;
  Button1: TButton;
  Panel: TPanel;
implementation

Ahora en el evento Oncreate del form crearemos los componentes.

delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
  PCInformacion := TPageControl.Create(Self);
  with PCInformacion do
  begin
    Parent := Form1;
    Align  := AlClient;
  end;
  Hoja1 := TTabSheet.Create(PCInformacion);
  with Hoja1 do
  begin
    PageControl := PCInformacion;
    Caption     := 'Hola Mundo';
    DTPFecha    := TDateTimePicker.Create(Self);
    DBGDatos    := TDBGrid.Create(Self);
    DataSource  := TDataSource.Create(Self);
    Button1:= TButton.Create(Self);
    DTPFecha.Parent := Hoja1;
    DBGDatos.Parent := Hoja1;
    DBGDatos.Top:= 48;
    Button1.Parent := Hoja1;
    Button1.Left:= 5;
    Button1.Top:= 200;
    Button1.OnClick := OnButton1Click;
    Button1.Caption:= 'Hola';
 
  end;
  Hoja2 := TTabSheet.Create(PCInformacion);
  with Hoja2 do
  begin
    PageControl := PCInformacion;
    Caption     := 'Hola Mundo en la Hoja 2';
 
  end;
end;

Veremos un ejemplo del uso, en este caso con el boton que creamos.

Primero creamos el procedimiento.

delphi

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject); // este lo creo delphi 
    procedure OnButton1Click(Sender: TObject); // este es el que creamos.
    procedure FormDestroy(Sender: TObject); // este lo creamos
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Ahora creamos la acción de ese procedimiento.

delphi

procedure TForm1.OnButton1Click(Sender: TObject);
begin
  ShowMessage('Presionaste el boton 1!');
   with Hoja1 do
  begin
  Panel    := TPanel.Create(Self);
  Panel.Parent := Hoja1;
  Panel.Height:= 161;
  Panel.Width:= 220;
  Panel.Left:= 264;
  Panel.Top:= 264;
  Panel.Caption:= 'Hola que tal';
  end;
end;

Por ultimo un dato importante, destruir los componentes al salir del form.

delphi

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DTPFecha.Free;
  Hoja1.Free;
  Hoja2.Free;
  PCInformacion.Free;
end;

Hay que tener en cuenta que hay que añadirle al uses los unit que se necesitaran, en este caso:

delphi

ComCtrls, DB, DBGrids, StdCtrls, ExtCtrls

Osea quedara asi:

delphi

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

Si tenéis dudas, podéis crear un hilo y os ayudaremos con gusto.
Saludos

[Caral]

Hola
Viendo un comentario me di cuenta de que la explicación no estaba completa (totalmente detallada).
He arreglado los detalles que faltaban, ya esta listo.
Saludos
PD: Por si queda alguna duda de que funciona perfectamente y no va a explotar dejo el codigo.

[archivo adjunto borrado por el administrador]

[Delphius]

Hola Carlos, si me lo permites, quisiera añadir que cuando uno crea componentes en ejecución debe establer dos cosas fundamentales para evitar problemas:
1. Definir el dueño (Owner). Cuando uno crea el componente, necesita pasarle como parámetro el objeto dueño. Esto indica que cuando el el dueño se libere, invoce a la orden de liberar los objetos que dependen del mismo.
Es decir que cuando uno hace:

delphi

Control := TControl.Create(nil);

Está indicando que nosostros asumimos cuando y donde liberar la variable Control.
En cambio el hacer:

delphi

Control := TControl.Create(self);

Le indicamos que es el mismo objeto quien se liberará.

2. Definir quien es el padre (Parent).
Cuando hacemos algo como esto:

delphi

TLabel.Parent := form1;

Estamos indicando que el Padre del Label es el form1.

El Padre no necesariamente debe ser el dueño. El Padre, simplemente indica a que componente se relaciona. Y de éste modo es posible que los controles hijos hereden el "estilo" del padre. Por ejemplo, un Panel, y un Form. Si la propiedad ParentColor del TPanel es TRUE, el panel heredará el mismo color que se le asigne al form con el que esté relacionado.

Espero que este aporte, si bien minúsculo, sirva para comprender más el tema.

Saludos,

[felipe]

Este tutorial no debe faltar en ningún foro 
Gracias por el aporte 

[memofer]

Hola
Vamos a crear algunos componentes en ejecución, paso a paso.
Primero definimos que componentes usaremos, esto lo colocaremos como una variable general.

delphi

var
  Form1:      TForm1;
  PCInformacion: TPageControl;
  DTPFecha:   TDateTimePicker;
  Hoja1, Hoja2: TTabSheet;
  DataSource: TDataSource;
  DBGDatos:   TDBGrid;
  Button1: TButton;
  Panel: TPanel;
implementation

Ahora en el evento Oncreate del form crearemos los componentes.

delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
  PCInformacion := TPageControl.Create(Self);
  with PCInformacion do
  begin
    Parent := Form1;
    Align  := AlClient;
  end;
  Hoja1 := TTabSheet.Create(PCInformacion);
  with Hoja1 do
  begin
    PageControl := PCInformacion;
    Caption     := 'Hola Mundo';
    DTPFecha    := TDateTimePicker.Create(Self);
    DBGDatos    := TDBGrid.Create(Self);
    DataSource  := TDataSource.Create(Self);
    Button1:= TButton.Create(Self);
    DTPFecha.Parent := Hoja1;
    DBGDatos.Parent := Hoja1;
    DBGDatos.Top:= 48;
    Button1.Parent := Hoja1;
    Button1.Left:= 5;
    Button1.Top:= 200;
    Button1.OnClick := OnButton1Click;
    Button1.Caption:= 'Hola';
 
  end;
  Hoja2 := TTabSheet.Create(PCInformacion);
  with Hoja2 do
  begin
    PageControl := PCInformacion;
    Caption     := 'Hola Mundo en la Hoja 2';
 
  end;
end;

Veremos ...
Si tenéis dudas, podéis crear un hilo y os ayudaremos con gusto.
Saludos

Caral eres excelente!!
Gracias por tus enseñanzas, en mi caso, yo si soy siempre un novato, tu no!
Bueno solo un consulta;
¿como podría generar varios panels dentro de un panel, con solo presionar una tecla?
pero que a su vez pudiera eliminarlos dándole doble click a cada panel que se auto genera con un botón.
si pudieras darme una pequeña orientación, te lo agradeceré enormemente!

[Wilson]

¿como podría generar varios panels dentro de un panel, con solo presionar una tecla?
pero que a su vez pudiera eliminarlos dándole doble click a cada panel que se auto genera con un botón.
si pudieras darme una pequeña orientación, te lo agradeceré enormemente!

Arrastra un botón y un TPanel a tu form, al TPanel pone el nombre de PanelPadre, agrega el código para el evento onClick del Button1, cada que hagas click en el botón se creará un nuevo panel, sobre el panel padre, cada panel traerá su botón, que al hacer click en dicho botón destruirá el correspondiente Panel.

delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    PanelPadre: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  FLeft:Integer;
    procedure DestruirPanel(Sender: TObject);
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Panel: TPanel;
  Boton: TButton;
begin
  Panel := TPanel.Create(self);
  Panel.Parent := PanelPadre;
  Panel.Top := 100;
  Panel.Left := FLeft ;
  Panel.Width :=100;
  Panel.Height := 200;
 
  // botón
  Boton := TButton.Create(Panel);
  Boton.Parent := Panel;
  Boton.Top := 10;
  Boton.Left := 10;
  Boton.Width := 80;
  Boton.Height :=30;
  Boton.Caption := 'Destruir panel';
  Boton.OnClick := DestruirPanel;
 
  //Incremento el left para el próximo panel
  FLeft := Fleft +100
end;
 
procedure TForm1.DestruirPanel(Sender: TObject);
begin
  TButton(Sender).Parent.FreeAndNil;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
FLeft := 0;
end;
 
end.

[cadetill]

Sólo un detalle, amigo Wilson, mejor usar el método Free que Destroy, y mejor aun el procedimiento FreeAndNil

Nos leemos

[Wilson]

Sólo un detalle, amigo Wilson, mejor usar el método Free que Destroy, y mejor aun el procedimiento FreeAndNil

Nos leemos

Gracias por la observación amigo Cadetill; 

PD: He corregido la línea en cuestión, en el ejemplo del post anterior.

[memofer]

Wilson

Muchas gracias!!!!

Estaba haciendo todo lo que me pusiste, pero no compredia que debia liberar(Free) de acuerdo a quien esta siendo el padre osea que me faltaba esta linea

delphi

TButton(Sender).Parent.FreeAndNil;

y que amablemente me lo hiciste saber.

[cadetill]

jejeje, FreeAndNil no es un método, es una procedimiento

delphi

FreeAndNil(TButton(Sender).Parent)

[Wilson]

jejeje, FreeAndNil no es un método, es una procedimiento

delphi

FreeAndNil(TButton(Sender).Parent)

Que pena con la visita,  es de esos días en que uno escribe las cosas por escribir, y eso que FrreAndNil lo usamos frecuentemente, se me cruzó con Free.
Mil disculpas por todos los perjuicios causados. 

Un cordial saludo