Crear Objetos en tiempo de ejecucion

[Neftali [Germán.Estévez]]

Empezado por mmtaffarel

...como puedo hacer para crear en tiempo de ejecucion un formulario, agregarle un groupbox y a su vez dentro de este varios edits??? todo en tiempo de ejecucion...

Bueno el sistema es sencillo y parecido para todos los controles; Aquí tienes un ejemplo, puedes además modificar todaslas propiedades inicialmente que te interesen.

Código Delphi [-]
var
  F:TForm;
  gb:TGroupBox;
  lbl1:TLAbel;
  edt1:TEdit;
begin
  // Form
  F := TForm.Create(Application);
  F.Name := 'RunTimeForm1';
  F.Position := poDesktopCenter;
  F.Width := 600;
  F.Height := 400;
  F.Show;
 
  // Group Box
  gb := TGroupBox.Create(F);
  gb.Parent := F;
  gb.Name := 'RunTimeGroupBox1';
  gb.Top := 10;
  gb.Left := 10;
  gb.Height := 300;
  gb.Width := 300;
 
  // Etiqueta
  lbl1 := TLabel.Create(F);
  lbl1.Parent := gb; // dentro del GroupBox
  lbl1.Name := 'RunTimeLabel1';
  lbl1.Top := 40;
  lbl1.Left := 40;
  lbl1.Width := 100;
  lbl1.Caption := 'Etiqueta: ';
 
  // Edit
  edt1 := TEdit.CReate(F);
  edt1.Parent := gb; // dentro del GroupBox
  edt1.Name := 'RunTimeEdit1';
  edt1.Top := 40;
  edt1.Left := 160;
  edt1.Width := 100;
  Edt1.Text := 'Escriba aquí...';

[Delar]

Empezado por Neftali

Bueno el sistema es sencillo y parecido para todos los controles; Aquí tienes un ejemplo, puedes además modificar todaslas propiedades inicialmente que te interesen.

Código Delphi [-]var F:TForm; gb:TGroupBox; lbl1:TLAbel; edt1:TEdit; begin // Form F := TForm.Create(Application); F.Name := 'RunTimeForm1'; F.Position := poDesktopCenter; F.Width := 600; F.Height := 400; F.Show; // Group Box gb := TGroupBox.Create(F); gb.Parent := F; gb.Name := 'RunTimeGroupBox1'; gb.Top := 10; gb.Left := 10; gb.Height := 300; gb.Width := 300; // Etiqueta lbl1 := TLabel.Create(F); lbl1.Parent := gb; // dentro del GroupBox lbl1.Name := 'RunTimeLabel1'; lbl1.Top := 40; lbl1.Left := 40; lbl1.Width := 100; lbl1.Caption := 'Etiqueta: '; // Edit edt1 := TEdit.CReate(F); edt1.Parent := gb; // dentro del GroupBox edt1.Name := 'RunTimeEdit1'; edt1.Top := 40; edt1.Left := 160; edt1.Width := 100; Edt1.Text := 'Escriba aquí...';

Siento revivir un tema tan antiguo, pero me gustaria saber como añadir acciones ahora a los objetos creados. Las acciones no estan declaradas previamente.

Muchas Gracias, Delar

[[Lepe]]

Cuando dices "acciones" supongo que te refieres a eventos.

Debes definir el evento con los mismo parámetros que lleve por defecto, por ejemplo, el evento Onclick de un label viene así:

Código Delphi [-]
procedure TFormXXX.label1Click(Sender:TObject);

Puedes definir uno parecido:

Código Delphi [-]
procedure TForm1.OnClickEnEjecucion(Sender:TObject);

Después de crear el label, se lo asignas:

Código Delphi [-]
label1.Onclick := OnClickEnEjecucion;

Saludos

[edgar1575]

Buenas, veo que se puede crear, pero de ahi como los puedo operar ejemplo creado 5 edit como puedo acceder a su texto, de cada uno, se me ocurre un array de edit... es esto posible...gracias

[Casimiro Noteví]

Bienvenido a clubdelphi, por favor, lee nuestra guía de estilo, gracias.