Foros Club Delphi - Coleccion de Controles...

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Coleccion de Controles... (https://www.clubdelphi.com/foros/showthread.php?t=1036)

craven

02-06-2003 16:24:15

Coleccion de Controles...

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

02-06-2003 16:35:28

Hola:

Una idea:

En el OnCreate del Form

Código:

for i:=Low(Bts) to High(Bts) do

  Bts[i] := nil;

en el evento del menu

Código:

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

02-06-2003 17:09:33

Muchas gracias por tu ayuda.. Un saludo.

La franja horaria es GMT +2. Ahora son las 20:55:22.