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.