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;