Delphi, Override Custom SetCaption Controls

Question

I have user control, with the ancestor being another custom control, who the ancestor is TPanel; i.e.

TNotMyCustomControl = class(Tpanel);

TMyCustomControl    = class(TNotMyCustomControl);

Is it possible to react when Caption is installed (runtime or development time) and there are still changes passed to Ancestor controls?

Answer 1

It is possible. Just add a message handler CMTextChangedto your custom 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;