Control en tiempo de ejecución

[vpepen]

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]

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

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.-