procedure TForm1.Button1Click(Sender: TObject);
const
iHtoH = 20; //行间距
iWtoW = 10; //列间距
iPerLine = 6;//每行个数
iWidth = 80; //按钮宽度
var
I : integer;
begin
//算法:动态创建30个按钮,每行6个共5行,顺序排列,显示在ScrollBox上
for I := 1 to 30 do
with TButton.Create(Self) do begin
Name := 'Btn' + InttoStr(I);
Parent := Self.ScrollBox1;
Caption := Name;
Top := iHtoH + (30+iHtoH) * (I div iPerLine - integer((I mod iPerLine)=0));
Left := iWtoW + (iWidth+iWtoW) * ((I-1) mod iPerLine);
Show;
end;
end;//或许可以继续精练一下
效果如下:
-------------------------------------------------------
http://topic.csdn.net/u/20080407/15/54206ece-4603-43df-b455-5f695d779ba5.html?seed=455055698
在CSDN解答问题后整理以下代码:
const
iHtoH = 20; //行间距
iWtoW = 10; //列间距
iWidth = 80; //按钮宽度
iCount = 30; //按钮个数
var
iPerLine : integer;//每行个数
BtnArr : array[1..iCount] of TButton;
procedure TForm1.FormCreate(Sender: TObject);
var
I : integer;
begin
iPerLine := Self.ClientWidth div (iWidth+iWtoW);
for I := 1 to iCount do begin
BtnArr[I] := TButton.Create(Self);
with BtnArr[I] do begin
Name := 'Btn' + InttoStr(I);
Parent := Self;
Caption := Name;
Top := iHtoH + (30+iHtoH) * (I div iPerLine - integer((I mod iPerLine)=0));
Left := iWtoW + (iWidth+iWtoW) * ((I-1) mod iPerLine);
Show;
end;
end;
end;
procedure TForm1.FormResize(Sender: TObject);
var
I : integer;
begin
iPerLine := Self.ClientWidth div (iWidth+iWtoW);
for I := 1 to iCount do
with BtnArr[I] do begin
Top := iHtoH + (30+iHtoH) * (I div iPerLine - integer((I mod iPerLine)=0));
Left := iWtoW + (iWidth+iWtoW) * ((I-1) mod iPerLine);
end;
end;