calculate position of TButton's on a TForm

[paule32]

Hello,
I have an Array of TButton's (10 TButton)
Now, I would place them horizontal on the Form with a for loop.
How can I do this, when I have only the Counter Variable btnCount ?
The Buttons shall have a gap of 10 Pixels on each.

[Remy Lebeau]

I have an Array of TButton's (10 TButton)
Now, I would place them horizontal on the Form with a for loop.
How can I do this, when I have only the Counter Variable btnCount ?
The Buttons shall have a gap of 10 Pixels on each.

Something like this:

Code: Pascal  [Select][+][-]

1. var
2.   iLeft, iTop, idx: Integer;
3.   arr: array of TButton;
4.   btn: TButton;
5. begin
6.   arr := ...;
7.   iLeft := ...; // desired starting position
8.   iTop := ...; // desired starting position
9.   for idx := Low(arr) to High(arr) do
10.   begin
11.     btn := arr[idx];
12.     btn.Left := iLeft;
13.     btn.Top := iTop;
14.     Inc(iLeft, btn.Width + 10);
15.   end;
16. end;

Or:

Code: Pascal  [Select][+][-]

1. var
2.   iLeft, iTop: Integer;
3.   arr: array of TButton;
4.   btn: TButton;
5. begin
6.   arr := ...;
7.   iLeft := ...; // desired starting position
8.   iTop := ...; // desired starting position
9.   for btn in arr do
10.   begin
11.     btn.Left := iLeft;
12.     btn.Top := iTop;
13.     Inc(iLeft, btn.Width + 10);
14.   end;
15. end;

[wp]

In Lazarus the container controls have a little-known property named ChildSizing (https://wiki.freepascal.org/Autosize_/_Layout#Layout). It helps to automatically position controls in this container.

I guess you do not want to fill the form completely by the 10 buttons. Therefore, I'd propose to add a TPanel to the form which will serve as a container for the buttons. Go to property ChildSizing of the panel. Set its "ControlsPerLine" to 10 (or 5, if you want to have the buttons in two rows), and set "Layout" to "cclLeftToRightThenTopToBottom". Now drop the 10 buttons on the panel - each button will be automatically positioned and prefectly aligned. In order to control the spacing between the buttons enter their distance in "HorizontalSpacing" (and "VerticalSpacing" if you have multiple rows). If you want to rearrange the button order, select the button to be moved and press Ctrl+PgUp or Ctrl+PgDown. Finally set the panel's AutoSize to true, and you may probably also want to bottom-align the panel (Align = alBottom, or similar).

[paule32]

Thanks Remy

[lainz]

Thanks wp is the solution I wanted to write