Fórum Alinhamento de Buttons #287484

Procedure AlinhaBotoes;
var
 TamanhoDoBotoes:Integer;
 i:Integer;
 Contar:Integer;
 Acrescentar:Integer;
 invisiveis:Integer;
begin
i:=0;
Contar:=0;
invisiveis:=0;
 while i <= Form1.ComponentCount -1 do
   begin
     if Form1.Components[i] is TButton then
       if TButton(Form1.Components[i]).tag = 1 Then
          if TButton(Form1.Components[i]).visible = True Then
              contar:=contar+1
          else
            invisiveis:=invisiveis+1;
      i:=i+1;
   end;
tamanhoDoBotoes:=((Form1.Width - contar-invisiveis) div contar);
i:=0;
acrescentar:=-1;
while i <= Form1.ComponentCount -1 do
  begin
    if Form1.Components[i] is TButton then
       if TButton(Form1.Components[i]).tag = 1 Then
          if TButton(Form1.Components[i]).visible = True Then
             begin
               TButton(Form1.Components[i]).Width:=tamanhoDoBotoes;
               TButton(Form1.Components[i]).top:=312; ******Exemplo
               TButton(Form1.Components[i]).Left:=acrescentar;
               Acrescentar:=Acrescentar+tamanhoDoBotoes;
             end;
     i:=i+1;
  end ;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
Button1.Visible:=False;
AlinhaBotoes;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
Button1.Visible:=True;
AlinhaBotoes;
end;

procedure TFrm1.AlinhaBotoes(Frm:TForm;W:Integer);
 //  W é o width do frm ou do panel onde estão os botões a serem alinhados
var
  Contar,i,j,k,l,m : Integer;
begin
  k := 0;
  j := 0;
  l := 0;
  i := 0;
  Contar := 0;

  while i <= Frm.ComponentCount -1 do
  begin
    if Frm.Components[i] is TButton then
      if TButton(Frm.Components[i]).tag = 1 then
        if TButton(Frm.Components[i]).visible = True then
        begin
          contar := contar + 1;
          if not(k > 0)then
            k := TButton(Frm.Components[i]).Width;
        end;
    i := i + 1;
  end;

  j := W div contar;

  l := j - k;
  l := l div 2;

  m := 0;
  i := 0;
  while i <= Frm.ComponentCount -1 do
  begin
    if Frm.Components[i] is TButton then
      if TButton(Frm.Components[i]).tag = 1 then
        if TButton(Frm.Components[i]).visible = True then
        begin
          if m = 0 then
          begin
            TButton(Frm.Components[i]).Left := l;
          end
          else
          begin
            TButton(Frm.Components[i]).Left  := (j*m) + l;
          end;
          m := m + 1;
        end;
    i := i + 1;
  end;
end;