Delphi 12自定义TPanel派生组件创建带TTabSheet的TPageControl报错

问题场景 #

基于TPanel派生可视化组件，整合带2个TTabSheet的TPageControl（每个TabSheet放置cxGrid）。相同创建逻辑在普通单窗体项目中正常运行，但在自定义组件构造函数中创建TTabSheet时，触发“Control xx has no parent window”错误；仅创建TPageControl不添加TabSheet则无异常。

问题原因 #

自定义组件构造函数执行时，组件自身的窗口句柄（HWND）尚未创建。作为其子控件的TPageControl，因父控件无句柄，自身也无法完成窗口句柄初始化。而设置TTabSheet.PageControl时，内部逻辑会依赖PageControl的有效窗口句柄，此时句柄不存在就会抛出错误。普通窗体项目中，窗体在构造阶段已具备完整的句柄环境，因此不会触发该问题。

解决方案 #

重写自定义组件的CreateWnd方法，将TTabSheet的创建逻辑移至该方法中。CreateWnd是VCL控件创建窗口句柄时触发的回调，此时组件及所有父级控件的句柄均已就绪，能保证TTabSheet初始化时依赖的PageControl句柄有效。

需添加初始化标记，避免CreateWnd因控件重建句柄（如DPI变化）重复创建TabSheet。

修改后代码示例 #

type
  TCustomGr = class(TPanel)
  private
    fPanelTop: TPanel;
    fPageControlMain: TPageControl;
    fTabsInitialized: Boolean; // 标记TabSheet是否已初始化
    procedure CreateWnd; override;
    procedure Loaded; override; // 支持设计时初始化
  public
    constructor Create(AOwner: TComponent); override;
  private
    procedure InitComponents;
    function CreatePageControl(AOwner: TComponent; AParent: TWinControl; const aNAME: String = ''): TPageControl;
    function CreateTabSheet(AOwner: TPageControl; const aNAME: String = ''): TTabSheet;
  end;

constructor TCustomGr.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  fTabsInitialized := False;

  // 先创建无需依赖句柄的基础控件
  fPanelTop := TPanel.Create(Self);
  fPanelTop.Parent := Self;

  fPageControlMain := CreatePageControl(Self, Self);
end;

procedure TCustomGr.CreateWnd;
var
  workSheet: TTabSheet;
begin
  inherited CreateWnd;
  if not fTabsInitialized then
  begin
    // 窗口句柄已创建，可安全创建TTabSheet
    workSheet := CreateTabSheet(fPageControlMain);
    workSheet := CreateTabSheet(fPageControlMain);
    InitComponents;
    fTabsInitialized := True;
  end;
end;

procedure TCustomGr.Loaded;
var
  workSheet: TTabSheet;
begin
  inherited Loaded;
  // 设计器加载组件时，若未初始化则补全创建逻辑
  if not fTabsInitialized then
  begin
    workSheet := CreateTabSheet(fPageControlMain);
    workSheet := CreateTabSheet(fPageControlMain);
    InitComponents;
    fTabsInitialized := True;
  end;
end;

// 保留原有辅助函数实现
function TCustomGr.CreatePageControl(AOwner: TComponent; AParent: TWinControl; const aNAME: String = ''): TPageControl;
begin
  Result := TPageControl.Create(AOwner);
  if aNAME = '' then
  begin
    Randomize;
    Result.Name := 'pc_' + Random(999999).ToString;
  end;
  Result.Parent := AParent;
  Result.TabPosition := tpTop;
  Result.TabWidth := 100;
  Result.Top := 100;
  Result.Left := 100;
end;

function TCustomGr.CreateTabSheet(AOwner: TPageControl; const aNAME: String = ''): TTabSheet;
begin
  Result := TTabSheet.Create(AOwner);
  if aNAME = '' then
  begin
    Randomize;
    Result.Name := 'tc_' + Random(999999).ToString;
  end;
  Result.PageControl := AOwner;
end;

procedure TCustomGr.InitComponents;
begin
  // 此处添加cxGrid等组件的初始化逻辑
end;

内容的提问来源于stack exchange，提问作者Popa Ovidiu-Razvan