有关TPageControl组件的使用

Question

function CreateTabSheet(ATabVisible: Boolean): TTabSheet;
begin
  Result := TTabSheet.Create(PageControl);
  Result.PageControl := PageControl;
  Result.TabVisible := ATabVisible;
end;

Answer 1

是不是没有指定其parent属性。

Answer 2

function  CreateTabSheet(ATabVisible:  Boolean):  TTabSheet; 
begin 
    Result  :=  TTabSheet.Create(PageControl); 
    Result.PageControl  :=  PageControl1; 
                            ~~~~~~~~~~~~~
    Result.TabVisible  :=  ATabVisible; 
end; 
这样写最好不过了，不过，你要看清
result:=TTabsheet.create(Pageconntrol);
result.pagecontrol:=Pagecontrol1;