Programación General > C++ Builder

 Como Crear Una Forma En Tiempo De Ejecucion

<< < (2/3) > >>

ErickCerPa:
como ejemplo creas unproyecto nuevo y le pones un boton
Button1 como nombre por ejemplo para que le pongas el codigo en el evento OnClick y te quede asi



--- Código: Text ---void __fastcall TForm1::Button1Click(TObject *Sender){  TForm *Forma = new TForm(this);  Forma-&#62;Visible=true;} 
Suerte

No se te olvide eliminarla al final de la ejecucion :D


--- Código: Text ---delete Forma;  //esta linea libera la memoria

rpenatez:

--- Cita de: "ErickCerPa" --- como ejemplo creas unproyecto nuevo y le pones un boton
Button1 como nombre por ejemplo para que le pongas el codigo en el evento OnClick y te quede asi



--- Código: Text ---void __fastcall TForm1::Button1Click(TObject *Sender){  TForm *Forma = new TForm(this);  Forma-&#62;Visible=true;} 
Suerte

No se te olvide eliminarla al final de la ejecucion :D


--- Código: Text ---delete Forma;  //esta linea libera la memoria
--- Fin de la cita ---
Quisiera saber un poco más sobre cómo crear objetos en tiempo de ejecución dentro de un formluario. Necesito crear unos checkboxes dinamicamente dependiendo de un query en SQL.
Gracias
RicardoP

The Black Boy:
pues en una aplicacion que yo estoy haciendo , yo creo tantos checkbox como el Query me diga..

me explico el query es una consulta que me devuelve un dato (ejemplo 5) y yo tengo que crear esa cantidad de checkbox..

no se si te refieres ha eso???

Saludos... :hola:

rpenatez:
Creo que no me di a entender. Yo puedo crear los checkboxes, la cuestion es que no me aparecen dentro del formulario. Hice un ejemplo con un ciclo For. Qué me hace falta para que me aparezcan dentro del formulario??

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int i;
        for (i=1;i<=5;i++)
        {

                TCheckBox *check = new TCheckBox(this);
                check->Name = "a" + IntToStr(i);
                check->Visible = true;
                check->Left = i + 20;
                check->Top = i + 20;

        }

}

ErickCerPa:

--- Código: Text ---void __fastcall TForm1::Button1Click(TObject *Sender){for (int i=1;i&#60;=5;i++)   {      TCheckBox *check = new TCheckBox(this);      check-&#62;Name = &#34;a&#34; + IntToStr(i);      check-&#62;Visible = true;      check-&#62;Left = i + 20;      check-&#62;Top = i + 20;      check-&#62;Parent=Form1; //te falta esta linea   } }  
Suerte;

Bytes   :hola:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior

Ir a la versión completa