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

相关阅读 >>

Delphi 有授权许可的字符串拷贝函数源码

Delphi 内进行音量控制及静音

用Delphi来实现全屏截图

Delphi 安卓如何获取当前系统语言

Delphi tms web core 嵌入js代码

Delphi之伪造referer下载文件

Delphi将目录删除到回收站中

Delphi webbrowser通过遍历id查找元素是否存在

Delphi 数组竟然可以这样定义

Delphi ado的事务处理例子

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi动态创建30个按钮，每行6个共5行，顺序排列