
Componentes en Builder 5
Publicado por Adrian (7 intervenciones) el 01/06/2023 05:20:05
Hola, me estoy volviendo loco
Estoy intentando añadir al Form Compponentes TEdit, los creo, los alineo pero no consigo que aparezcan, crearlos se crean, porque en la propiedad ComponentCount los reconoce, que me falta en estas lineas para que aparezcan ??
----------------------------------------------------------------------------------------------------------------------------------------------------
short int Num_Edits = 0;
short int Izquida = 8, Arriba = 10;
void __fastcall TFItems::BEditsClick(TObject *Sender) // FItems es el Form y BEditsClick
{ // es un componente TButton
TEdit *ObjEdit;
Izquida = 8;
Arriba += 30;
LPosition->Caption = (String)Arriba; // LPosition es un TLabel para indicar la posicion Top del componente
Num_Edits++;
ObjEdit = new TEdit(this);
ObjEdit->Left = Izquida;
ObjEdit->Top = Arriba;
ObjEdit->Width = 121;
ObjEdit->Name = "PruebasEdit" + (String)Num_Edits;
ObjEdit->Text = "PruebasEdit";
ObjEdit->Visible = true; // Esto no funciona
}
//---------------------------------------------------------------------------
void __fastcall TFItems::BItemsClick(TObject *Sender)
{
ShowMessage(FItems->ComponentCount); // BItemsClick es otro TButton
}
-------------------------------------------------------------------------------------------------------------------------------------------
Estoy intentando añadir al Form Compponentes TEdit, los creo, los alineo pero no consigo que aparezcan, crearlos se crean, porque en la propiedad ComponentCount los reconoce, que me falta en estas lineas para que aparezcan ??
----------------------------------------------------------------------------------------------------------------------------------------------------
short int Num_Edits = 0;
short int Izquida = 8, Arriba = 10;
void __fastcall TFItems::BEditsClick(TObject *Sender) // FItems es el Form y BEditsClick
{ // es un componente TButton
TEdit *ObjEdit;
Izquida = 8;
Arriba += 30;
LPosition->Caption = (String)Arriba; // LPosition es un TLabel para indicar la posicion Top del componente
Num_Edits++;
ObjEdit = new TEdit(this);
ObjEdit->Left = Izquida;
ObjEdit->Top = Arriba;
ObjEdit->Width = 121;
ObjEdit->Name = "PruebasEdit" + (String)Num_Edits;
ObjEdit->Text = "PruebasEdit";
ObjEdit->Visible = true; // Esto no funciona
}
//---------------------------------------------------------------------------
void __fastcall TFItems::BItemsClick(TObject *Sender)
{
ShowMessage(FItems->ComponentCount); // BItemsClick es otro TButton
}
-------------------------------------------------------------------------------------------------------------------------------------------
Valora esta pregunta


0