Control en tiempo de ejecución

[marcoszorrilla]

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]

Gracias Marcos,

La verdad es que me funciona de maravillas !!!


Víctor.-