delphi 动态生成九宫格按钮

本文整理自网络，侵删。

 


unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure CustomButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
const
iHtoH = 20; //行间距
iWtoW = 10; //列间距
iPerLine = 3;//每行个数
iWidth = 80; //按钮宽度
var
I : integer;
begin
//算法：动态创建30个按钮，每行6个共5行，顺序排列，显示在ScrollBox上
for I := 1 to 9 do
    with TButton.Create(Self) do begin
      Name := 'Btn' + InttoStr(I);
      OnClick := CustomButtonClick;       // 指定button click事件
      Parent := Self;
      Caption := InttoStr(I); //Name
      Top := iHtoH + (9+iHtoH) * (I div iPerLine - integer((I mod iPerLine)=0));
      Left := iWtoW + (iWidth+iWtoW) * ((I-1) mod iPerLine);
      Show;
    end;
end;//或许可以继续精练一下


procedure TForm1.CustomButtonClick(Sender: TObject);
begin
// 根据 Sender 来判断哪个新建的button click
ShowMessage(TButton(Sender).Caption);
end;

end.

 

相关阅读 >>

pe结构详细图

Delphi 判断指定字符串是否开头 startstext用法

Delphi 控制窗口显示隐藏

Delphi里formatfloat的用法

Delphi 隐藏文件夹

Delphi Delphi 学习大师qq群讨论的字符串位置替换方法

Delphi输入汉字自动产生拼音简码

Delphi中httpencode使用注意事项

Delphi写的一个屏幕截取函数

Delphi fmx中获取窗口比例

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

转载请注明出处：木庄网络博客 » delphi 动态生成九宫格按钮