delphi - 如何在 Create 中设置 TCustomControl 的父级

Question

当我们创建一个组件作为自定义控件并将该控件放在面板上时，该控件始终显示在表单上而不是包含的控件上。如何在创建中设置自定义控件的父级，以便当按钮放在面板上时，按钮的父级就是面板？

TGlassButton = class(TCustomControl)
...
public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
...

constructor TGlassButton.Create(AOwner: TComponent);
  begin
    inherited;  ???????????
    inherited Create(AOwner); ????????????
    Parent := TWinControl( AComponent ); ??????????????
    ...
  end;

问题是设计时创建而不是运行时。这非常有效:

procedure TForm10.FormCreate(Sender: TObject);
begin
  GlassButton0 := TGlassButton.Create( Panel1 );
  GlassButton0.Parent := Panel1;
  GlassButton0.Left := 20;
  GlassButton0.Top := 6;
  GlassButton0.Width := 150;
  GlassButton0.Height := 25;
  GlassButton0.Caption := 'Created At RunTime';
end;

Answer 1

不要在构造函数中设置 Parent 属性!正如其他人所说，IDE 和 DFM 流系统将在构造函数退出后自动分配 Parent。如果您需要在构造函数中执行依赖于所分配的 Parent 的操作，那么您需要重新设计组件。重写虚拟 SetParent() 和/或 Loaded() 方法并从那里执行操作。并利用 if (ComponentState 中的 csDesigning) then ... 检查可以避免设计时实际不需要的操作的地方。