9

我最近才开始大量使用 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, 0);
end;

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

end.

此框架仅包含一个 TPanel，并且该框架用于一个简单的主窗体，该主窗体仅包含该框架和一个关闭按钮。

我错过了什么？

4

2 回答 2

9

我看到两种可能性：

  1. 您的程序尚未开始处理消息。GetMessage仅当您的程序调用或PeekMessage然后时才处理发布的消息DispatchMessage。这发生在里面Application.Run，所以如果你的程序还没有到达那里，那么它不会处理任何发布的消息。

  2. 您的框架的窗口句柄已被破坏并重新创建。访问该Handle属性会强制创建框架的窗口句柄，但如果框架的父级还没有完全稳定，那么它可能会破坏自己的窗口句柄并重新创建它。这会迫使它的所有子代都做同样的事情，因此当您的程序开始处理消息时，您将消息发布到的句柄并不存在。

要解决第一个问题，请稍等。您的程序最终将开始处理消息。要解决第二个问题，请覆盖框架的CreateWnd方法并在那里发布消息。在创建窗口句柄后调用该方法，因此您可以避免过早地创建句柄。但是，句柄仍然有可能被销毁和重新创建，并且每次CreateWnd发生时都会被调用，因此您需要小心，因为您的初始化消息可能会多次发布（但绝不会发布到同一个窗口处理多次）。这是否正确取决于您需要执行哪种初始化。

于 2011-04-22T13:16:51.590 回答
3

我能想到的唯一解释是，您的框架句柄是在您发布消息之后和消息队列被抽出之前重新创建的。尝试在 OnShow 中发布。

于 2011-04-22T13:16:09.137 回答