Coleccion de Controles...

[craven]

Hola amigos. A ver si podeis echarme una mano. Supongamos que tengo un array de TButton, esto es:

bts : array [1..4] of TButton ;

¿Como puedo hacer para que cuando se seleccione la opción del menú adecuada, se cree un botón del array y se muestre en el formulario principal? Gracias de antemano. Un saludo.

[andres1569]

Hola:

Una idea:

En el OnCreate del Form

for i:=Low(Bts) to High(Bts) do
Bts[i] := nil;


en el evento del menu

for i:=Low(Bts) to High(Bts) + 1 do
if i > High(Bts) then
ShowMessage ('No caben más botones. Lo siento');
else if Bts[i] := nil then
begin
Bts[i] := TButton.Create (Self);
with Bts[i] do
begin
Parent := Self;
Caption := 'Soy el Botón Nº ' + IntToStr(i);
Left := i * 64;
Top := 30;
Visible := TRUE;
end;
break;
end



Un Saludo

[craven]

Muchas gracias por tu ayuda.. Un saludo.