Vector de componentes

[Ñuño Martínez]

Leo la siguiente frase:

Empezado por odiseeus

aunque con las variables se puede usar el new, no se si se pueda algo parecido con las formas

Si me quedara sólo con ella, respondería que lo que te pasa es que todavía no sabes programar en C++ porque no has comprendido los conceptos de clase, tipo, objeto, objeto de clase, variable, referencia y puntero. Te recomendaría que te olvides por un tiempo de Builder y te empapases con un buen libro de programación en C++ (te recomiendo autores como Herbert Schildt y Luís Joyanes, y los libros de la editorial Anaya pero ojo sólo los de los años noventa, porque los últimos no me gustan nada). Aun así te propongo una posible solución.

Por lo que sé, Builder también usa VCL, por lo que debería funcionar algo así (ojo, que lo hago de memoria y no tengo Builder para probarlo, de hecho nunca lo he usado así que no estoy seguro de cómo define los métodos y las propiedades):

/* Añadir un label al formulario. */
  int MiFormulario::AnnadeLabel (char *TextoLabel)
  {
    TLabel *Objeto;

  // Ahora no recuerdo cuál es el método para añadir componentes a un TForm,
  // y no me apetece buscarlo.
    this->addComponent (Objeto = new TLabel (this));
  // Voy a suponer que usa un patrón "get/set" para las propiedades.
    Objeto->setCaption (TextoLabel);
    Objeto->setParent (this->PanelDeEtiquetas);
    Objeto->Tag = this->CuentaElementos++;
  // Ya no recuerdo cómo es la clase string, pero esto debería funcionar.
    Objeto->setName ((string)("etiqueta") + itostr (Objeto->Tag));
    return Objeto->Tag;
  }

En principio no necesitas almacenar las referencias en ningún lugar, y que la clase TForm incluye la capacidad de almacenarlas por ti y eliminará los objetos cuando corresponda.

Si necesitas obtener un objeto concreto, accede a la lista de componentes de TForm (supongo que en Builder también lo implementan) y busca por nombre o por Tag.

[edito] Acaba de ocurrírseme que puedes usar realloc.

[[escafandra]]

Pongamos un ejemplo sencillo:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TLabel* L = new TLabel(this); // Creamos y asignamos el Owner 
    L->Left = 0;
    L->Top = 0;
    L->Caption = "Label";
    L->Parent = this; // Asignamos el Parent
}

AOwner: Se encargará de destruir el nuevo componente.
Parent: La ventana donde se mostrará el nuevo componente.

Puede interesarte que la VCL tiene también la Clase TList, una clase para manejar arrays de punteros.

Saludos.

[odiseeus]

la verdad no me deja nada claro, mejor dicho, como seria el metodo para crear n cantidad de componentes Edit segun sea necesario... un componente dinamico, gracias!

ejemplo: si necesitara tomar los nombres de ciudades visitadas y en componente Edit ingresaran una cantidad, ejemplo 6 a continuacion mostrara 6 componenetes Edit para ingresar en cada uno un nombre de ciudad, y en la siguiente ejecucion fueran 8 mostrara los 8 componentes necesarios, pero que no haya necesidad de hacerlos uno a uno si depronto se llegan a necesitar mas o menos no sea problema!...gracias por la colaboracion!

[ecfisa]

Hola.

No entendí bien lo que preguntaste en tu primer mensaje. Pero ahora, luego de leer el segundo, me parece que es lo que te contesto escafandra.

Por ejemplo:

void __fastcall TForm1::CrearEdits(int Cant)
{
 for(int i=0;i < 10; i++) {
    TEdit *TE = new TEdit(this);
    TE->Left = 8;
    TE->Top = i*30+20;
    TE->Name = "Edit"+IntToStr(i+1);
    TE->Parent = this;
  }
}

Ejemplo de llamada que crea 10 TEdit:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  CrearEdits(10);
}

Si no es eso, realmente no interpreto que buscas hacer.

Saludos.

[odiseeus]

que pena no haberme hecho entender bien desde un principio, pero es exactamente como lo explicaste ecsifa... muchas gracias!... completamente útil tu colaboración!... Gracias!

[odiseeus]

que pena preguntar tanto, pero después de varios y distintos intentos a lo cual no he podido, como se hace para eliminar o destruir los mismos componentes creados en la explicación anterior? gracias.

[[escafandra]]

Empezado por odiseeus

que pena preguntar tanto, pero después de varios y distintos intentos a lo cual no he podido, como se hace para eliminar o destruir los mismos componentes creados en la explicación anterior? gracias.

Quizás no leíste detenidamente mi mensaje:

Empezado por escafandra

Pongamos un ejemplo sencillo:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TLabel* L = new TLabel(this); // Creamos y asignamos el Owner 
    L->Left = 0;
    L->Top = 0;
    L->Caption = "Label";
    L->Parent = this; // Asignamos el Parent
}

AOwner: Se encargará de destruir el nuevo componente.
Parent: La ventana donde se mostrará el nuevo componente.

Resumo: si al crear el nuevo componente lo creas con el parámetro AOwner como el formulario contenedor, será éste el que se encargue de la destrucción cuando el formulario se destruya.

Saludos.