setlength(labels,10,10);
for i := 1 to 9 do
begin
k:=10;
for j:=1 to 1 do
begin
labels[i][j] := TLabel.Create(self); labels[i][j].Font.Size:=20;
labels[i][j].Left:=10;
labels[i][j].Top:=k+80;
labels[i][j].Caption:='fuck';
labels[i][j].Parent:=form1 ;
end;
k:=k+10;
end;这个Labels是用二维数组定义的。
for i := 1 to 9 do
begin
k:=10;
for j:=1 to 1 do
begin
labels[i][j] := TLabel.Create(self); labels[i][j].Font.Size:=20;
labels[i][j].Left:=10;
labels[i][j].Top:=k+80;
labels[i][j].Caption:='fuck';
labels[i][j].Parent:=form1 ;
end;
k:=k+10;
end;这个Labels是用二维数组定义的。
解决方案 »
- 请问如何让BitBtn读入TImage(或者TPicture)中的图片?
- 如何动态设置Access表的字段属性
- ADOStoredProc 怎样和存储过程向结合来保存记录
- 关于:aysBetween(d1,now); 两个日期相减一问急,在线等
- 辞职贴,感觉自己无能为力再为大家服务
- 一个初学者的关于Midas的疑问
- 弱弱的问题,关于数据类型定义
- 气愤...气愤...气愤...气愤...气愤...!
- dbgrid 怎么样做更新啊.
- 浏览硬盘中的图形文件,将此图形文件保存于SQL数据库中?
- Grid++report的GRDesigner怎么载入报表?
- delphi 关于webbrowser1隐藏调用的问题
k:=10;
for i := 1 to 9 do
begin
for j:=1 to 1 do
begin labels[i][j] := TLabel.Create(self); labels[i][j].Font.Size:=20;
labels[i][j].Left:=10;
labels[i][j].Top:=K+100;
labels[i][j].Caption:='fuck';
labels[i][j].Parent:=form1 ;
k:=k+50;
end; end;我知道问题所在了,每次都把位置的top设置成同一个值。覆盖了。
改正之后: