如何用代码对窗口加对象？下列代码错在哪？

Question

用代码创建一个带标签的窗体，但窗口显示后，无标签显示？，请问错在哪？
var Form1:Tform;
  LA:Tlabel;
begin
Form1:=Tform.create(nil);
LA:=Tlabel.create(form1);
LA.cation:='ffff';
LA.left:=1;
LA.top:=1;
LA:height:=12;
LA.autosize:=True;
Form1.showmodal;
end;为何以上代码可以显示窗口，但无标签显示？

Answer 1

LA.Parent := Form1;
该语句的含义是LA显示在Form1之中（上）。你的代码中的语句
LA:=Tlabel.create(form1);
只是创建了对象并规定了对象的从属关系（在销毁时此关系尤为重要）。