Vector de componentes

[ecfisa]

Hola odiseeus.

Una forma puede ser:

...
TObjectList *ObjLst = new TObjectList;

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;
    ObjLst->Add(TE);
  }
}

void __fastcall TForm1::btnCrearClick(TObject *Sender)
{
  CrearEdits(10);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnLiberarClick(TObject *Sender)
{
  ObjLst->Free();
}
...

Saludos.

[odiseeus]

nuevamente mil gracias! ecfisa, siempre he dicho que es grandioso tener un conocimiento, pero realmente ingenioso es saberlo trasmitir!... y en este foro si que lo saben hacer!.. mil gracias de nuevo!.. éxitos!

[odiseeus]

hola de nuevo, una preguntas mas, si quiero acceder a una de las propiedades de los Edit creados en el ejemplo anterior, como seria, pues no puedo colocar ej:

Edit1->Text = "texto1";
Edit2->Text = "texto2";
...
//n cantidad de Edit creados.... como se hace?

espero haberme explicado bien, Gracias

[ecfisa]

Hola odiseeus.

Podes acceder por el método FindComponent, por ejemplo:

void __fastcall TForm1::Button1Click(TObject *Sender) {

/* Forma 1 (recomendada) */
TEdit *e2 = static_cast<TEdit*>(FindComponent("Edit2"));
  e2->Text = "Texto 2";
  e2->Color = clMoneyGreen;

/* Forma 2 */
TEdit *e1 = ((TEdit*)FindComponent("Edit1"));
  e1->Text = "Texto 2";
  e1->Color = clSkyBlue;

/* a una propiedad */
((TEdit*)FindComponent("Edit3"))->Cursor = crHandPoint;
}

Saludos.