Delphi - Button dimension

is not a parent, is a measurement parameter that I need to do a calculation

Are all these button on the same form?

Yes

please take your time to explain what you want.
the better you explain, the easier to understand what you want.

up to now, i'm not following ...

I have a panel inside with 5 button, when the panel changes size the button I have to grow in proportion, this is repeated for 125 panel and 625 button.
I hope I have been more clear, thanks

would have been easier if you created a frame for each set
and then create the frames on the fly

i could create a sample tonight... don't have delphi here now

Can not create a frame, should I delete all the work done until now, we must find a solution on what I have done

ok, no frames, bit more complex, but should work.
show you tonight ...

I believe you need to set the width and height of your buttons, but also Left/Top position.

If you need to arrange a lot of buttons, you have to tell us how they are positioned and how you want to arrange them. Supposing you want them in row/columns you could have a procedure like this :

LayoutControls([edit1,edit2,btn1,btn2], 2, 8,8, 128, 32, 120, 24);

will but say 2 edit in columns with 2 buttons underneath

procedure LayoutControls(a:Array of TControl; NC, T,L,DX,DY:Integer;W:Integer=0;H:Integer=0);
// NC : number of columns. T/L : top/left position of first control 
// DX/DY : distance between 2 colomns or row
// W/H: Witdh/Height of every button, by default 0 (if you do not specify this parameter) means no change 
Var
 i,c,r:integer;
begin
 c:=0;
 r:=0;
 for i:=Low(a) to High(a) do With a[i] do
  begin
   Left:=L+c*DX;
   Top:=T+r*DY;
   if W>0 Then Width:=W;
   if H>0 Then Height:=H;
   inc(c);
   if c=NC Then
    begin
     c:=0;
     inc(r);
    end;
  end;
end; 

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

update for your specific need : change the above procedure with :

procedure LayoutControls(aParent:TComponent; NC, T,L,DX,DY:Integer;W:Integer=0;H:Integer=0);
...
 for i:=0 to aParent.ComponentCount-1 do if aParent.Components[i] is TControl Then With TControl(aParent.Components[i]) do

                                              

1:
2:
3:

then for each panel you call :
var
 DX:integer;
begin
 DX:=(myPanel.Width-8) Div 5;
 LayoutControls(myPanel, 5, 8, 8,DX, 0, DX-8);
end;

if all your panels have the same parent, then you can loop all of them using the parent ComponentCount and Components properties with a test with TPanel, like I did with TControl

procedure LayoutAllPanels(aParent:TComponent)
var
 DX:integer;
begin
 for i:=0 to aParent.ComponentCount-1 do if aParent.Components[i] is TPanel Then 
  begin
   DX:=(TPanel(aParent.Components[i]).Width-8) Div 5;
   LayoutControls(aParent.Components[i], 5, 8, 8,DX, 0, DX-8);
  end;
end;

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

I forgot the i:integer; declaration above

I made an example at the beginning:
AdvSmoothButton54.Width: Panel45.Width div = 5;
Suppose AdvSmoothButton54.Width = 150

buttons are called by AdvSmoothButton1 to AdvSmoothButton625.
What I need is to know just how to set the width of each button the same for all the buttons, this is difficult??

>>epasquier
there is a solution with 1 unit and add 1 uses to alter all buttons on 1 form ...

>> What I need is to know just how to set the width of each button the same for all the buttons
No, if you only change the size, they will stay in their former position and overlap or have more space than necessary between them.

>> this is difficult??
no it's not, you just have to copy/paste the code provided and alter to suit your needs like space between buttons

if all your buttons must take the full width of the panel and no space between them, then alter the LayoutAllPanels like below, and call

LayoutAllPanels( Parent_Of_All_Your_Panels );

 
procedure LayoutAllPanels(aParent:TComponent)
var
 DX:integer;
begin
 for i:=0 to aParent.ComponentCount-1 do if aParent.Components[i] is TPanel Then 
  begin
   DX:=TPanel(aParent.Components[i]).Width Div 5;
   LayoutControls(aParent.Components[i], 5, 8, 8,DX, 0, DX);
  end;
end;
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

>> Geert_Gruwez: there is a solution with 1 unit and add 1 uses to alter all buttons on 1 form ...
don't keep us waiting, please tell us your solution ;)

     
I forgot to say that each button contained within the panel is left-aligned, so I need to assign the width of the buttons (which are 5 for each panel) with exactly the value of panle.widht div 5, all repeated each button

Probably my English is not very clear, further evidence to explain better, in my program I had written this

 AdvSmoothButton54.Width := Panel45.Width div 5;
 AdvSmoothButton246.Width := Panel45.Width div 5;
 AdvSmoothButton247.Width := Panel45.Width div 5;
 AdvSmoothButton248.Width := Panel45.Width div 5;
 AdvSmoothButton250.Width := Panel45.Width div 5;

 AdvSmoothButton236.Width := Panel45.Width div 5;
 AdvSmoothButton237.Width := Panel45.Width div 5;
 AdvSmoothButton238.Width := Panel45.Width div 5;
 AdvSmoothButton239.Width := Panel45.Width div 5;
 AdvSmoothButton240.Width := Panel45.Width div 5;

 AdvSmoothButton231.Width := Panel45.Width div 5;
 AdvSmoothButton232.Width := Panel45.Width div 5;
 AdvSmoothButton233.Width := Panel45.Width div 5;
 AdvSmoothButton234.Width := Panel45.Width div 5;
 AdvSmoothButton235.Width := Panel45.Width div 5;

 AdvSmoothButton241.Width := Panel45.Width div 5;
 AdvSmoothButton242.Width := Panel45.Width div 5;
 AdvSmoothButton243.Width := Panel45.Width div 5;
 AdvSmoothButton244.Width := Panel45.Width div 5;
 AdvSmoothButton245.Width := Panel45.Width div 5;

 AdvSmoothButton226.Width := Panel45.Width div 5;
 AdvSmoothButton227.Width := Panel45.Width div 5;
 AdvSmoothButton228.Width := Panel45.Width div 5;
 AdvSmoothButton229.Width := Panel45.Width div 5;
 AdvSmoothButton230.Width := Panel45.Width div 5;

How can I simplify the code?

     
This procedure as the appeal? okay one button to try?

procedure TForm1.Button1Click (Sender: TObject);
begin

end;

you made it even simpler ...

above your form paste this

type
  TAdvSmoothButton = class(unitname.TAdvSmoothButton)
  public
    constructor Create(AOwner: TComponent); override;
  end;

  TYourForm = class(TForm)
  ...
  public
    function ButtonWidth: integer;
  end;

constructor TAdvSmoothButton.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  DoInitWidth;
end;
 
procedure TAdvSmoothButton.DoInitWidth;
begin
  Width := TYourForm(Owner).ButtonWidth;
end;

function TYourForm.ButtonWidth: integer;
begin
  Result := 50;
  if Assigned(Panel45) then
    Result := Panel45.Width div 5;
end;

a few typos ... sorry ...

type
  TAdvSmoothButton = class(unitname.TAdvSmoothButton)
  public
    constructor Create(AOwner: TComponent); override;
    procedure DoInitWidth;
  end;
 
  TYourForm = class(TForm)
  ...
  public
    function ButtonWidth: integer;
  end;
 
constructor TAdvSmoothButton.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  DoInitWidth;
end;
 
procedure TAdvSmoothButton.DoInitWidth;
begin
  Width := TYourForm(Owner).ButtonWidth;
end;
 
function TYourForm.ButtonWidth: integer;
begin
  Result := 50;
  if Assigned(Panel45) then
    Result := Panel45.Width div 5;
end;
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

Geert, you missed a point : The buttons need resize when the panel are resized. And if you want to go that way then you'd better simply state that the width of a button := TPanel(Owner).Width Div 5;

So danz67, assuming that all your panels are in the same panel (or other) parent, here is what you have to do :
add an onResize event for this parent container :

procedure TForm1.PanelResize(Sender: TObject);
begin
 LayoutAllPanels(TComponent(Sender));
end;

i know, haven't got delphi here, only a browser ...
i was still gonna come back on that

greatly appreciate the work you've done and I must say that if I try this code buttons spread out perfectly

procedure TForm1.Button1Click(Sender: TObject);
var
 DX:integer;
 i,j:integer;
 aParent:TComponent;
begin
 DX:=Width Div 5;
 for j:=0 to ComponentCount-1 do if Components[j] is TControl Then
   With TControl(Components[j]) do Width:=DX;
end;

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

but if I use the procedure and the first reference from the panel resize does not get the result on each panel

procedure LayoutAllPanels(aParent:TComponent);
var
 DX:integer;
 i,j:integer;
begin
 for i:=0 to aParent.ComponentCount-1 do
  if aParent.Components[i] is TPanel Then
    With TPanel(aParent.Components[i]) do
  begin
   DX:=Width Div 5;
   for j:=0 to ComponentCount-1 do if Components[j] is TControl Then
    With TControl(Components[j]) do Width:=DX;
  end;
end;
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14: