delphi动态创建30个按钮，每行6个共5行，顺序排列

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;//或许可以继续精练一下

推荐分享