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