SoloCodigo

Tengo problemas a la hora de crear un botón en tiempo de ejecución, si alguien m puede ayudar??, gracias

creas un boton y pegas esto en el evento onclick
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        TButton *Nuevo = new TButton(this);
        Nuevo->Parent=Form1;
        Nuevo->Width=100;
        randomize();
        Nuevo->Left=random(this->Width-100);
        Nuevo->Top=random(this->Height-100);
        Nuevo->Height=50;
        Nuevo->Caption="Boton";
        Nuevo->Visible=true;
}