在DELPHI中如何动态创建一个LABEL控件? 在DELPHI中如何动态创建一个LABEL控件? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var label1:TLabel...label1:=TLabel.Create(self) var label1:TLabelbeginlabel1:=TLabel.Create(self);label1.parent:=form1;label1.left:=10;label1.top:=10;label1.width:=100;label1.heigt:=30;end; procedure Button1Click(Sender: TObject);var MyLabel: TLabel;begin MyLabel := TLabel.Create(Self); MyLabe1.Parent := Form1; MyLabel.Left := 100; MyLabel.Top := 100; MyLabel.Width := 100; MyLabel.Height := 30; MyLabel.Caption := '动态建立的Label';end; procedure Button1Click(Sender: TObject);var MyLabel: TLabel;begin MyLabel := TLabel.Create(Self); with MyLabe1 do begin Parent := Form1; Left := 100; Top := 100; Width := 100; Height := 30; Caption := '动态建立的Label'; end;end; 轻松一下,让你忘却烦恼,快活到老 _ 为什么这个语句在sql server中运行正常,而在acess中却提示语法错误? 我想做一个类似outlook那样的日程管理软件,请推荐好用的日历控件 麻烦将此VC程序改成Delphi的 ado查询的问题!谢谢各位老大!急!(在线等待) New() 在什么情况下用? 我写了一个delphi 程序能运行一点对应窗口就出现错误 在线等..................................... 我的这个多线程为什么会互相影响 关于文件和文件夹操作的问题,请各位大哥大姐多多指点,我只有79分了,谢谢!!!! 关于excel编程 报表表头
label1:TLabel
...
label1:=TLabel.Create(self)
label1:TLabel
begin
label1:=TLabel.Create(self);
label1.parent:=form1;
label1.left:=10;
label1.top:=10;
label1.width:=100;
label1.heigt:=30;
end;
var
MyLabel: TLabel;
begin
MyLabel := TLabel.Create(Self);
MyLabe1.Parent := Form1;
MyLabel.Left := 100;
MyLabel.Top := 100;
MyLabel.Width := 100;
MyLabel.Height := 30;
MyLabel.Caption := '动态建立的Label';
end;
var
MyLabel: TLabel;
begin
MyLabel := TLabel.Create(Self);
with MyLabe1 do begin
Parent := Form1;
Left := 100;
Top := 100;
Width := 100;
Height := 30;
Caption := '动态建立的Label';
end;
end;