Delphi dicas

Criando um array de botões (ou outros objetos)

{Como demonstrado abaixo no evento do click do Button1 está o código para criar o array de botões}



procedure TForm1.Button1Click(Sender: TObject);

var con: Integer;

Buttons:array of Tbutton; {Classe dos objetos dos quais o array se refere (pode ser outra)}

begin

        setlength(buttons,5); {Indica o tamanho do array de botões}

        for con := 0 to length(buttons)-1 do

        begin

                buttons[con]:=tbutton.create(application);

                Buttons[con].Parent:=Form1;

                Buttons[con].name:='Button'+inttostr(con);

                buttons[con].Left:=10;

                buttons[con].Top:=26*con;

                buttons[con].Caption:='Button '+inttostr(con); {Propriedade caption com o numero da posição do botão no array}

        end;

end;

por : Jose Augusto