delphi 动态创建控件

2024-11-06 15:39:26
推荐回答(1个)
回答(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;