Delphi - 如何向 TDataModule 发送 Windows 消息？

Question

我需要向 Delphi 2010 应用程序中的 TDataModule 发送 Windows 消息。

我想使用

PostMessage(???.Handle, UM_LOG_ON_OFF, 0,0);

问题:

TDataModule 没有Handle。我怎样才能向它发送Windows消息？

Answer 1

你可以很容易地给它一个 handle 。看一下类单元中的AllocateHWND。调用它来为您的数据模块创建一个句柄，并定义一个将处理 UM_LOG_ON_OFF 的简单消息处理程序。