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

Question

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

我想使用

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

问题：

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

Answer 1

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

Answer 2

这是一个示例，演示如何使用 Handle 创建 TDataModule 的后代

uses
  Windows, Winapi.Messages,
  System.SysUtils, System.Classes;

const
  UM_TEST = WM_USER + 1;

type
  TMyDataModule = class(TDataModule)
  private
    FHandle: HWND;
  protected
    procedure   WndProc(var Message: TMessage); virtual;
  public
    constructor Create(AOwner : TComponent); override;
    destructor  Destroy(); override;
    property    Handle : HWND read FHandle;
  end;

...

uses
  Vcl.Dialogs;

constructor TMyDataModule.Create(AOwner : TComponent);
begin
  inherited;

  FHandle := AllocateHWND(WndProc);
end;

destructor  TMyDataModule.Destroy();
begin
  DeallocateHWND(FHandle);

  inherited;
end;

procedure   TMyDataModule.WndProc(var Message: TMessage);
begin
  if(Message.Msg = UM_TEST) then
  begin
    ShowMessage('Test');
  end;
end;

，然后我们可以向数据模块发送消息，如下所示：

procedure TForm1.Button1Click(Sender: TObject);
begin
  PostMessage(MyDataModule.Handle, uMyDataModule.UM_TEST, 0, 0);
end;