Question

delphi 动态创建控件

selectlabel:=tlabel.create(fselectresult);
selectlabel.Parent := fselectresult.GroupBox1;
selectlabel.caption := sfilename(varraycontrol[n]);
selectlabel.height := 16;
selectlabel.width := 80;
selectlabel.left := 30;
selectlabel.Top := 30+34*n; 原来控件是直接放在form里面 但是现在原来form里面要加上pagecontrol而这些控件要放在第一页里面现在运行原来的代码就报错 什么地址内存出错之类的错误请问代码怎么修改哦

Answer 1

selectlabel:=tlabel.create(fselectresult);
selectlabel.Parent := fselectresult.PageControl1.Pages[0];{或者这句还可以这样写：selectlabel.Parent := fselectresult.TabSheet1 ;} selectlabel.caption := sfilename(varraycontrol[n]);
selectlabel.left := 30;
selectlabel.Top := 30+34*n; selectlabel.height := 16;
selectlabel.width := 80;