Delphi，覆盖自定义控件setCaption

Question

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

TNotMyCustomControl = class(Tpanel);

TMyCustomControl    = class(TNotMyCustomControl);

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

Answer 1

有可能。只需向自定义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;