为什么我得不到预期效果（关于控件的动态建立）？？？

Question

unit HDPanel;interfaceuses
  SysUtils, Classes, Controls, ExtCtrls, ComCtrls;type
  THDPanel = class(TPanel)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    { Public declarations }
  published
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Samples', [THDPanel]);
end;{ THDPanel }constructor THDPanel.Create(AOwner: TComponent);
var
  pctPageControl: TPageControl;
begin
  inherited;
  pctPageControl := TPageControl.Create(AOwner);
  pctPageControl.Parent := Self;
end;end.为什么该组件建立的pageControl会没有名字？

Answer 1

这是正常,一个动态建立的构件如果你没有给它取名字,它默认就空的名字.