Control en tiempo de ejecución

vpepen · #1 13-09-2004

Hola foro,

A lo mejor esta pregunta ya ha sido contestada en este foro, pero la verdad es que no he podido dar con ella por más que he buscado, así que espero me disculpen.

Necesito colocar un un control (por ejemplo un botón) en un form en tiempo de ejecución.

Las gracias anticipadas,

Víctor.-

marcoszorrilla · #2 13-09-2004

A ver si te sirve este ejemplo que tengo por aquí:

Código Delphi [-]procedure TfrCrearbotones.Button1Click(Sender: TObject);
var
boton:TButton;
i:integer;
ancho:Integer;
centro:Integer;

begin
ancho:=Screen.Width;
ancho:=ancho - 100;
centro:=ancho div 2 ;
        for i:=0 to 17 do
        begin
        //botones izquierda
        boton:=TButton.Create(frCrearbotones);
        boton.name:='boton'+intToStr(i);
        boton.Parent:=frCrearBotones;
        boton.SetBounds(1+i*8,1+i*22,100,20);
        boton.Caption:='Mi botón'+intToStr(i);
        boton.OnClick :=cerrar;
        //botones centro
        boton:=TButton.Create(frCrearBotones);
        boton.name:='boton'+intToStr(i+36);
        boton.Parent:=frCrearBotones;
        boton.SetBounds(centro,1+i*22,100,20);
        boton.Caption:='Mi botón'+intToStr(i+36);
        boton.OnClick :=cerrar;
        //botones derecha
        boton:=TButton.Create(frCrearBotones);
        boton.name:='boton'+intToStr(i+18);
        boton.Parent:=frCrearBotones;
        boton.SetBounds(ancho-i*8,1+i*22,100,20);
        boton.Caption:='Mi botón'+intToStr(i+18);
        boton.OnClick :=cerrar;


        end;
        button1.caption:='Cerrar';
        button1.onclick:=Cerrar;
end;

procedure TfrCrearbotones.cerrar(Sender:Tobject);
begin
close;
end;

Un Saludo.

vpepen · #3 13-09-2004

Gracias Marcos,

La verdad es que me funciona de maravillas !!!

Víctor.-