delphi – 为什么我的TFrame没有“看到”发布的消息？

我刚刚开始大量使用TFrames(好吧,是的,我一直生活在摇滚……).我认为框架支持消息处理方法声明 – 我已经看到了很多这样的例子.那么为什么这个用于TFrame的简单测试单元永远不会看到它发布给自己的消息？ (当我发现在我的大型应用程序中没有调用消息处理程序时,我创建了测试.)

unit JunkFrame;

interface

uses
  Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls;

const
  DO_FORM_INITS = WM_USER + 99;

type
  TFrame1 = class(TFrame)
    Panel1: TPanel;
  private
    procedure DoFormInits(var Msg: TMessage); message DO_FORM_INITS;
  public
    constructor Create(AOwner: TComponent); override;
  end;

implementation

{$R *.dfm}

constructor TFrame1.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  PostMessage(self.Handle,DO_FORM_INITS,0);
end;

procedure TFrame1.DoFormInits(var Msg: TMessage);
begin
  ShowMessage('In DoFormInits!');
end;

end.

此框架仅包含TPanel,框架用于仅包含框架和关闭按钮的简单主文件.

我错过了什么？