Delphi, override custom control setcaption

TNotMyCustomControl = class(Tpanel);

TMyCustomControl = class(TNotMyCustomControl);

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;

I have a custom control,
The ancestor is another custom control,
Whose ancestor is TPanel;
ie

TNotMyCustomControl = class(Tpanel);

TMyCustomControl = class(TNotMyCustomControl); 

Is it possible to react when setting the title (run time or design time) and still pass the changes to the Ancestor control?

It is possible. Just add the CMTextChanged message handler to the custom TPanel:

< pre>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;