var
buttons: array [0..3] of tbutton;
i: integer;
begin
query1.first;
For i:= 0 to 3 do
begin
Buttons[i]:=TButton.create(self);
Buttons[i].Parent:=Self;
Buttons[i].name:=query1.fieldbyname('name').asstring;
query1.next;
end;
end;
buttons: array [0..3] of tbutton;
i: integer;
begin
query1.first;
For i:= 0 to 3 do
begin
Buttons[i]:=TButton.create(self);
Buttons[i].Parent:=Self;
Buttons[i].name:=query1.fieldbyname('name').asstring;
query1.next;
end;
end;
解决方案 »
- InteaWeb9.0.24中,IWDBImage的圖片顯示如何才能置中?
- 请教高手-----在线等待
- 如何做出一个窗口,让其“最大化”按钮不能用,“最小化”和“关闭”正常使用
- 求救
- 高手快来看看啊。。。关于使用TMediaPlayer的问题啊。。送分啊!!
- 哪位高手知道如何操作注册表隐藏桌面所有的图表,急等!
- 怎么实现一个功能相对强大的对数据库搜索引擎?
- 为何???
- 分数基本恢复,帖子也基本各归本位!
- 如何知道当前正在运行的程序的路径?
- 有没有人有Dephi5的update??1,2都可以
- 用wise9如何打包BDE中的别名?InstallShield for delphi制作的安装程序安装后快捷方式等中文变乱码
buttons: array [0..3] of tbutton;
i: integer;
begin
query1.first;
For i:= 0 to 3 do
begin
Buttons[i]:=TButton.create(self);
Buttons[i].Parent:=Self;
Buttons[i].name:=query1.fieldbyname('name').asstring;
Buttons[i].caption:=query1.fieldbyname('name').asstring;
query1.next;
end;
end;
buttons: array [0..3] of tbutton;
i: integer;
begin
query1.first;
i := 0;
while not query1.Eof do
begin
Buttons[i]:=TButton.create(self);
Buttons[i].Parent:=Panel1;
Buttons[i].Left := ;
Buttons[i].Top := ;
Buttons[i].name:=query1.fieldbyname('name').asstring;
i := i + 1;
query1.next;
end;
end;
把 Buttons[i].name:=query1.fieldbyname('name').asstring;
改为:Buttons[i].Caption:=query1.fieldbyname('name').asstring;
while not Query1.eof do begin
.....
buttons[i].left := Self.Left + 20*i;
.....
end;
自己控制位置好了,还有top,就不写了。
buttons: array [0..3] of tbutton;
i: integer;
begin
query1.first;
For i:= 0 to 3 do
begin
Buttons[i]:=TButton.create(self);
Buttons[i].Parent:=Self;
Buttons[i].Left:=i+10;
Buttons[i].Top:=i*30+10;
Buttons[i].Caption:=query1.fieldbyname('name').asstring;
query1.next;
end;
end;