Delphi,覆盖自定义控件setCaption

我有一个自定义控件,
祖先是另一个自定义控件,
谁的祖先是TPanel;
即

TNotMyCustomControl = class(Tpanel);

TMyCustomControl    = class(TNotMyCustomControl);

设置标题时是否可以做出反应(运行时间或设计时间),并且仍然将更改传递给Ancestor控件？

有可能的.只需将CMTextChanged消息处理程序添加到自定义TPanel：

type
  TMyPanel = class(TPanel)
  private
    procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
  end;

{ ... }

procedure TMyPanel.CMTextChanged(var Message: TMessage);
begin
  inherited;
  ShowMessage('caption has been changed');
end;