Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-10-2004
mmtaffarel mmtaffarel is offline
Registrado
 
Registrado: jul 2004
Posts: 6
Poder: 0
mmtaffarel Va por buen camino
Crear Objetos en tiempo de ejecucion

Hola amigos me gustaria saber 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...

O por ahi alguien conoce algun manual o tutorial como para incursionar en esto...

Espero ser claro con la consulta, cualquier cosa por favor diganme asi la redacto de otra manera.....

Desde ya muchas gracias.. Salu2
Responder Con Cita
  #2  
Antiguo 15-10-2004
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
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í...';
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 15-10-2004
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 29
Lepe Va por buen camino
Los objetos visuales no dejan de ser meros objetos, es decir tienes que hacer lo mismo que al crear un TstringList, y además, configurar la propiedad Parent y las coordenadas en pantalla.


Código Delphi [-]
var e:Tedit;
     g:Tgroupbox;
begin
   g:= Tgroupbox.create(form1);
   g.parent := form1;
   g.height := 80;
   
   e:= Tedit.create(form1);
   e.parent := g;
   e.top := 10 ; // coordenada relativa al Groupbox

// form1 se encargará de destruir el groupbox y el edit cuando se cierre.
end;
Si quieres acceder a ellos en tiempo de ejecución, asignales un nombre único.

Esto es dicho de cabeza, si tiene algun fallito, te toca retocarlo a ti
Saludos
Responder Con Cita
  #4  
Antiguo 15-10-2004
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 29
Lepe Va por buen camino
se me adelantó Neftali con un ejemplo más completo

Saludos
Responder Con Cita
  #5  
Antiguo 15-10-2004
mmtaffarel mmtaffarel is offline
Registrado
 
Registrado: jul 2004
Posts: 6
Poder: 0
mmtaffarel Va por buen camino
Bueno bueno gente excelente las respuestas, me quedo bien claro el tema...
Muchas gracias, lo probare y luego les cuento

salu2
Responder Con Cita
  #6  
Antiguo 04-12-2006
Delar Delar is offline
Miembro
 
Registrado: oct 2006
Posts: 90
Poder: 19
Delar Va por buen camino
Cita:
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
Responder Con Cita
  #7  
Antiguo 04-12-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 29
Lepe Va por buen camino
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
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #8  
Antiguo 14-01-2024
edgar1575 edgar1575 is offline
Registrado
 
Registrado: ene 2024
Posts: 2
Poder: 0
edgar1575 Va por buen camino
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
Responder Con Cita
  #9  
Antiguo 14-01-2024
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Bienvenido a clubdelphi, por favor, lee nuestra guía de estilo, gracias.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 01:37:05.


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