delphi - 如何防止控件被添加到从TCustomPanel派生的组件中？

Question

我定义了一个从 TCustomPanel 派生的组件，但有时我不小心在其中添加了一些其他控件。

运行时:

  TMyPanel = class(TCustomPanel)
  public
    //...
  end;

设计时:

procedure Register();
begin
  RegisterCustomModule(TCustomPanel, TCustomModule);
  RegisterComponents('MyTestComponents', [
    TMyPanel
  ]);
end;

我不希望安装和使用我的组件的人意外地在其中添加其他控件。当组件是表单/框架的直接子时，如何防止将控件添加到组件中？

重现该行为的步骤:

1. 创建新表单
2. 添加TMyPanel
3. 选择 TMyPanel 后，添加另一个控件

新控件将添加到面板内。

Answer 1

可能最简单的方法(可以被覆盖)是在其构造函数中设置 controlStyle 元素，如下所示

interface

uses
  VCL.ExtCtrls,
  VCL.Controls,
  System.Classes;

type
TMyPanel = class(TCustomPanel)
  public
    constructor Create(AOwner: TComponent); override;
  end;

implementation

{ TMyPanel }

constructor TMyPanel.Create(AOwner: TComponent);
begin
  inherited;
  // ...
  ControlStyle := ControlStyle - [ csAcceptsControls ];
end;

如果您希望能够在设计时更改此行为，您还可以发布 ControlStyle 属性。