如何动态创建 50 个Button?每行a(例如:5)个,共b(例如:10)列,也就是矩形排列(5*10).如图:* * * * *
* * * * *
* * * * *
* * * * *
* * * * *
* * * * *
* * * * *
* * * * *
* * * * *
* * * * *只要是想知道如何设置动态创建的按钮的Left/Top的数值;
* * * * *
* * * * *
* * * * *
* * * * *
* * * * *
* * * * *
* * * * *
* * * * *
* * * * *只要是想知道如何设置动态创建的按钮的Left/Top的数值;
解决方案 »
- 服务程序上使用OpenDialog
- 安装 SQL2005问题
- Delphi7编译时的一个怪问题,不知有没人遇到过?
- 请教一个关于数组使用的问题(本人很菜,但问题很急,第一次发贴,请各位指点)
- 这个ScriptEvents该怎么写?
- 请问给问大虾:delphi的发出print后,能否捕逐打印机是否能正常工作?
- 请高手讲解一下这几个关于对象创建释放的语句的区别
- 再问oracle数据库程序打包问题
- 怎么样调用matlab函数,紧急,求救!!!!!!!!!11
- 跨进程获取设置了LVS_OWNERDATA 的SYSLISTVIEW32控件中的数据
- 关于keypress的问题。
- 关于页面过渡效果的问题,急!!!!!!!!!!!!!!!!!!!!!!!!!
var
i,j: Integer;
const
ButtonName = 'MyButton';
begin
for i := 1 to 10 do
for j := 1 to 5 do
begin
TButton.Create(Self).Name := ButtonName + IntToStr(i) + IntToStr(j);
with TButton(FindComponent(ButtonName + IntToStr(i) + IntToStr(j))) do
begin
Left := 10 + j*100;
Top := i * 40;
Parent := self;
end;
end;
end;
var i,j:integer;
Button:TButton;
begin
for i:=0 to 49 do
begin
for j:=0 to 4 do
begin
Button:=TButton.Create(Self);
Button.Name:='Button'+IntToStr(i+1)+IntToStr(j+1);
Button.Caption:='Button'+IntToStr(i+1)+','+IntToStr(j+1);
Button.Left:=j*100;
Button.Top:=i*50;
Button.Parent:=Self;
end;
end;
end;