Delphi 自定义消息处理程序

Question

当用户双击 dbgrid 时，我会显示一个非模式表单。

当他们关闭该表单时，我想刷新网格。

为了实现这一点，我尝试了以下操作：

1 - 定义自定义消息常量：

const
  WM_REFRESH_MSG = WM_USER + 1;  //defined in a globally available unit

2 - 在非模态表单的 OnClose 事件中，我有以下内容：

procedure TMyNonModalForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  PostMessage(Self.Handle,WM_REFRESH_MSG,0,0);
end;

3 - 在保存 dbGrid 的表单的私有声明中，我有这样的：

procedure OnRefreshRequest(var Msg: TMessage); message WM_REFRESH_MSG;

...

procedure TMyFormWithADBGrid.OnRefreshRequest(var Msg: TMessage);
begin
  RefreshGrid;
end;

完成这些操作后，PostMessage 可以正常触发，但 OnRefreshRequest 过程永远不会运行。 我究竟做错了什么？

Answer 1

请注意，WM_USER 不是您自己的消息所基于的正确常量，除非您正在编写直接从 TWinControl 派生的自定义控件。 请改用 WM_APP。

另外，使用 UM_ 而不是 WM_ 来表示用户消息被认为是一种很好的风格，因为该前缀应该为 Windows 头文件保留。

Answer 2

除了其他答案中的消息名称之外，您还在 Self 消失时向 Self.Handle 发布消息。 您可能打算发布到不同的句柄（启动无模式句柄的窗口）。 当您创建无模式窗口时，让您的无模式窗口访问该句柄，然后将消息发布到那里。

Answer 3

发布消息需要发送到另一个窗口句柄，而不是您列出的 self.handle。 一种方法是在非模态表单上创建一个新属性，并在显示非模态表单之前为其分配另一个表单的句柄。

除此之外，并正确实现 WM_REFRESH_MSG （CheGueVerra 正确）它应该可以正常工作。

Answer 4

您可以尝试更改声明的结尾以匹配您尝试发送的消息。

procedure OnRefreshRequest(var Msg: TMessage); message WM_CEA_REFRESH;

应该是这个

procedure OnRefreshRequest(var Msg: TMessage); message WM_REFRESH_MSG;

Answer 5

我上传了一个“凯文会做什么？”的示例。 访问 Embarcadero 的新闻组论坛 embarcadero.public.attachments。

基本上，它是非模式表单关闭时主表单（或您想要的任何表单/对象）订阅的自定义事件。 在主要（或其他）形式中...

var
  NonModalForm :TfmNonModalForm;
begin
  NonModalForm := TfmNonModalForm.Create(nil); 
  NonModalForm.Execute(NonModalFormClosingListener);

在执行方法中

procedure TfmNonModalForm.Execute(YourListenerMethod: THeyIClosedEvent);
begin
   FHeyIClosedEvent := YourListenerMethod;
   Show();
end;

如果您无法访问论坛并需要附加代码，请发表评论，我将发布缺少的部分。

祝你好运