delphi - 如何创建一个行为类似于 Tpanel 的 TCustomControl？

Question

如何创建一个行为类似于 Tpanel 的 TCustomControl？例如 MyCustomComponent，我可以将组件放入标签、图像等中。

Answer 1

诀窍是 TCustomPanel 中的这段代码:

constructor TCustomPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := [csAcceptsControls {, ... } ];
//...
end;

您可以继承更多的 VCL 控件，它们的 ControlStyle 属性中有 csAcceptsControls。

如果您想在自己的控件中执行此操作，但又不是从此类 VCL 控件继承而来，那么您应该执行如下操作:

1. 覆盖 Create 构造函数
2. 将csAcceptsControls 添加到ControlStyle 属性

像这个示例代码:

//MMWIN:MEMBERSCOPY
unit _MM_Copy_Buffer_;

interface

type
  TMyCustomControl = class(TSomeControl)
  public
    constructor Create(AOwner: TComponent); override;
  end;


implementation

{ TMyCustomControl }

constructor TMyCustomControl.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := ControlStyle + [csAcceptsControls {, ...} ];
//...
end;


end.

--杰伦