选中PAGECONTROL后点右键就知道 了。

解决方案 »

  1.   

    procedure TForm1.AddPageClick(Sender: TObject);
    begin
      with TTabSheet.Create(self) do
      begin
        PageControl := PageControl1;
        Caption := 'xxx';
      end;
    end;
      

  2.   

    谢谢以上两位。也许是我的问题没有说清楚,我是想改写Tpagecontrol,使其有一个新方法叫addpage,也就是可以加一个page后,在上面画一个tabsheet。把游少爷那段程序移植到类方法的创建后,我是用  Pagecontrol:=self; 这一条语句试图把一个tabsheet画在pagecontrol上,但一执行到这里就说'control''找不到窗体!!