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 显示提示信息xxx 是/否

Delphi 中打开浏览器跳转网址链接网页的几种方法

Delphi之屏幕和窗口的坐标

Delphi 防止系统睡眠

Delphi获取系统默认的useragent的方法

Delphi xe8 tstylebook的使用

Delphi 判断字符串是否相同

Delphi 动态创建一个ipedit控件

Delphi 链接获取主站地址

Delphi 使控件变成圆角的方法

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...