procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
xl:array of Tlabel;
begin
i:=0;
while i<100 do
begin
xl[i]:=Tlabel.create(self);
xl[i].Parent := self;
xl[i].Left :=i+13;
xl[i].Height :=i+4;
xl[i].Caption :=inttostr(i);
i:=i+1;
end
end;
var
i:integer;
xl:array of Tlabel;
begin
i:=0;
while i<100 do
begin
xl[i]:=Tlabel.create(self);
xl[i].Parent := self;
xl[i].Left :=i+13;
xl[i].Height :=i+4;
xl[i].Caption :=inttostr(i);
i:=i+1;
end
end;
解决方案 »
- 为什么Delphi版本动态贺卡EXE生成器出错了
- 急!!!求助!!!Delphi7安装后,编译...
- 审核流程的数据库结构怎样设计比较好?
- 怎么使窗体的cursor统统改掉?
- 见人见智,请问在delphi中使用包的好处,大家踊跃发言啊!!!
- 中秋节日到了,住院大家:
- 做一个好的系统分析员,需要掌握些什么技术,大家随便说说,都有分,最好能说说系统分析员工作的范围,有什么好的软件是系统分析员一定会
- help:基于 delphi6.0 mapx3.0 sql2000 的程序调试
- 求购delphi6开发人员指南
- DBGridEh 怎样可以显示成下面的数据
- FastReport中Memo跨页显示问题被截短问题
- 请问各位怎么样定义一个不定长的结构体:
var
i:integer;
xl:array[1..5] of Tlabel;
begin
i:=1;
while i<=5 do
begin
xl[i]:=Tlabel.create(self);
xl[i].Parent := self;
xl[i].Left :=10*i+10;
xl[i].Height :=10*i+10;
xl[i].top :=10*i+10;
xl[i].Caption :=inttostr(i);
i:=i+1;
end
end;