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

发布于 2024-09-10 09:43:47 字数 80 浏览 13 评论 0原文

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

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

懒猫 2024-09-17 09:43:47

诀窍在于 TCustomPanel 中的这段代码：

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

您还可以派生出更多在其 ControlStyle 属性中具有 csAcceptsControls 的 VCL 控件。

如果您想在自己的控件中执行此操作，但不从此类 VCL 控件派生，那么您应该执行以下操作：

重写 Create 构造函数
将 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.

--jeroen

The trick is this piece of code in TCustomPanel:

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

There are many more VCL controls you can descend from that have csAcceptsControls in their ControlStyle property.

If you want to do this in your own controls, but do not descend from such a VCL control, then you should do something like this:

Override the Create constructor
Add csAcceptsControls to the ControlStyle property

Like this sample code:

//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.

--jeroen

回复收藏 0 原文

~没有更多了~