Delphi 自定义 TPanel 组件

Question

我有一个基于 TPanel 的自定义组件。目的是在顶部显示一个所谓的“标题区域”，它显示标题并具有可自定义的边框和背景颜色。它工作正常，除了一个小问题:在设计时，当点击“标题区域”时，该组件未被选中(蓝色项目符号未出现)，这意味着我无法拖动或修改该组件的属性。如果我在“标题区域”之外单击，则会选择该组件。谁能有一个解决方案？提前致谢。下面是一张简短的描述性图片:

Answer 1

对于标题面板集(例如):

constructor TMyTitlePanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := ControlStyle - [csAcceptsControls] + [csNoDesignVisible];
end;

---

另一种选择是使用 SetSubComponent(True)对于标题面板:https://stackoverflow.com/a/9479909/937125