var
lbl :Tlabel;
begin
lbl :=TLabel.Create(application_;
lbl.parent :=Form1;
lbl.left:=300;
lbl.visible :=True;
end;
lbl :Tlabel;
begin
lbl :=TLabel.Create(application_;
lbl.parent :=Form1;
lbl.left:=300;
lbl.visible :=True;
end;
解决方案 »
- Delphi7调用.NET webService服务,脱离IDE运行出错
- 在Delphi如何实现让一个程序运行受时间控制?用什么方法来实现?
- ADOTalbe+DBChart生成柱形图,柱的颜色的问题?
- 请高手赐教,多层报表在FASTREPORT中怎么样做?看内容!!!
- 天敏 SDK2000 监控卡
- 求助,Delphi在报表打印连续的票据时的问题,忘有经验的进来帮帮小弟!
- 数组里顺序存储了1到100个单词,如何把它们打乱顺序放到别一个数组里?
- 谁发给我DELPHI5下的dsgnintf.dcu and dsgnintf.pas,马上给分100!
- 关于彩票系统
- 编好的程序在别人没装delphi和SQLSERVER数据库的电脑上没法运行!!!
- TOleContainer 的使用问题?
- Image为什么会闪动?
L: TLabel;
begin
l:=Tlabel.Create(application);
l.parent :=Form1;
l.Left:= 80;
l.Top:= 45;
l.Width:= 40;
l.Height:= 13;
l.Caption:= 'Label1';
end;
i,Atop:integer;
begin
for i:=0 to 9 do
begin
with TLabel.Create(Self) do
begin
Parent := self;
top := ATop;
width := 68;
height := 17;
if ((i+2) mod 2)=0 then
left:=8
else
begin
left := 182;
ATop := ATop+28;
end;
caption:='label'+InttoStr(i);
end;
end;
end;