又一个组件开发中碰到的问题

Question

我在一个pas文件中写了两个组件类TA,TB,它们都继承于TPanel,我要在TB这个组件容器中包含TA,TA组件中有个Lines:TStrings属性，我为了在TB中设置TA的Lines属性，因而在TB这个父容器中又添加了个属性Lines:TStrings,专门用来设置TA的Lines，代码如下：procedure TB.SetLines(Value:TStrings);
begin
  FLines.Assign(Value);
  FTA.Lines:=FLines; //或者FTA.Lines.Assign(FLines);   {FTA是在TB中实例化的对象}
end;现在奇怪的问题出现了，在把TB这个组件安装后，托一个到窗体并在属性窗口中设置Lines属性，此时对TA设置有效，但是运行的时候TA的值又消失了，实在不知道为什么了，请大家帮我思考一下我的问题究竟出在什么地方呢？谢谢！

Answer 1

电脑上没装Delphi，你看一看TCustomMemo的Loaded方法，也许跟这个有关系。
你重载Loaded方法，再给TA的Lines赋值试试。