◆线程中动态创建控件◆

Question

在窗体form1已经有一个PageControl1控件，现在我想通过线程的方式动态创建MyTabSheet页，然后在MyTabSheet中再动态创建MyMEMO，MyTabSheet是创建了，MyMEMO看不到procedure TMyThread.Execute;{ 执行线程的方法 }
var
  MyTabSheet:TTabSheet;
  MyMEMO :TMEMO;
begin
    form1.PageControl1.Color := clAqua;
    MyTabSheet := TTabSheet.Create(nil);
    MyTabSheet.Caption := '测试01';
    MyTabSheet.Name := 'Test01';
    MyTabSheet.PageControl := form1.PageControl1;    MyMEMO := TMEMO.Create(nil);    MyMEMO.Align := alClient;
    MyMEMO.Lines.Add('测试内容') ; //加上这句也没有看到内容
    MyMEMO.Parent := MyTabSheet;
    Synchronize(application.ProcessMessages);
end;

Answer 1

MyMEMO.Align := alClient;
    MyMEMO.Lines.Add('测试内容') ; //加上这句也没有看到内容
    MyMEMO.Parent := MyTabSheet;改成
MyMEMO.Align := alClient;
    MyMEMO.Parent := MyTabSheet;
   MyMEMO.Lines.Add('测试内容') ; //加上这句也没有看到内容另外form1.PageControl1.Color := clAqua;
PageControl1好象没Color 属性 

Answer 2

应该为
  MyMEMO.Parent := MyTabSheet; 
  MyMEMO.Align := alClient;
  MyMEMO.Lines.Add('测试内容') ; 
注意
  控件一般先要有容器，然后再设置自身的相关属性