如何动态生成lable这个控件?
我想在程序中动态生成lable控件,位置是在gruopbox里头,如何解决换行问题?
以及内容如何显示,以及如何刷新的问题,我现在连显示都没有,不知道如何写,希望各位大哥大姐的帮
小弟一吧。
问题点数:50、回复次数:9Top
1 楼xylfred(亮亮)回复于 2003-08-03 20:48:42 得分 0
就是有个循环,根据一个整形变量来动态显示出相同个数的lable,如何实现啊?Top
2 楼bluespy(自古英雄出我辈, 一入江湖岁月催!)回复于 2003-08-03 20:50:50 得分 5
var la:tlabel;
begin
la:=tlabel.create;
la.parent:=gruopbox1;
Top
3 楼xylfred(亮亮)回复于 2003-08-03 21:02:17 得分 0
那如何在for循环里头写呢?Top
4 楼xylfred(亮亮)回复于 2003-08-03 21:04:52 得分 0
内容也要响应的变换
Top
5 楼qianguob(不懂编程)回复于 2003-08-03 21:15:10 得分 0
那你就根据变量的大小来创建不就可以了吗?Top
6 楼lovedata(萨菲洛斯&我爱娃娃)回复于 2003-08-03 21:16:27 得分 10
For i:=1 to 10 Do
Begin
lable[i]:=Tlable.Create(Self);
lable[i].Parent:=groupbox1;
lable[i].caption:=‘^_^’;
End;
Top
7 楼wudi_1982(向伴水学习|胃出血,住院中)回复于 2003-08-03 21:20:31 得分 20
注意:
parent这个属性;;;
lab := Tlabel.create(nil);
lab.parent := groupbox1;
lab.setbround(10,10,10,10);
Top
8 楼kyee(浪子阿鹏)回复于 2003-08-03 21:39:22 得分 15
lab := TLabel.Create(GroupBox1);
lab.Parent := GroupBox1; // 其实可以不加
lab.Caption := '...';
lab.SetBround(10, 10, lab.Width, lab.Height);Top
9 楼xylfred(亮亮)回复于 2003-08-06 16:45:34 得分 0
非常感谢Top




