Buscar por:

Criando uma lista de botões em tempo de execução

Código

Procedure criabotão;

var

   wl_botao:Tbutton;

   wl_left,wl_top,x,wlCont,wlnome:integer;

begin

  wl_left:=10;

  wl_top:=10;

  wlCont:=0;

  wlnome:=0;

  {Percorre os componentes existentes e verifica se é do tipo TBotaoOpc}

  {Isto para posicionar corretamente o botão em tempo de execução}

  For x:=0 to ComponentCount-1 do

  begin

      If (Components[x].ClassType = Tbutton) then

      begin

          wl_Left:=wl_Left+105;

          wlCont:=wlCont+1;

          wlnome:=wlnome+1;

          if wlCont > 5 then//se tiver mais de 5 botões ele posiciona na linha abaixo

          begin

             wl_Top  := wl_Top + 60;

             wl_Left:=10;

             wlCont := 0;

          end;

      end;

  end;

  wl_botao:= Tbutton.Create(self);

  wl_botao.visible:=true;

  wl_botao.left:= wl_left;

  wl_botao.top:=wl_top;

  wl_botao.Caption:= 'teste'+inttostr(wlnome);

  wl_botao.Name:='teste'+inttostr(wlnome);

  wl_botao.Parent:=form1;//é obrigatorio declarar o pai.

end;