delphi - Action Manager在数据模块中时，键盘快捷键未捕获？

在Delphi XE2中，我的应用程序中有一个数据模块，在该数据模块中有一个动作管理器。我已经为每个操作分配了键盘快捷键，但是当我尝试在应用程序中使用这些快捷键时，它无法捕获它们。

我正在应用程序的初始化中创建数据模块（由于IDE扭曲了项目主文件中的代码，该数据模块已移至其他单元）...

unit AppInit;

interface

uses
  Vcl.Forms,
  Vcl.Themes,
  Vcl.Styles,
  uMain,
  uDataModule
  ;

procedure RunApp;

implementation

procedure RunApp;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'My App';
  TStyleManager.TrySetStyle('Carbon');
  DM:= TDM.Create(nil);
  try
    Application.CreateForm(TfrmMain, frmMain);
    Application.Run;
  finally
    DM.Free;
  end;
end;

end.

之所以创建这样的数据模块，是因为该应用程序的所有各种形式都可以使用其中的组件，特别是动作管理器。必须在创建主表单之前创建它。

当动作管理器在数据模块中时，如何使动作项目的键盘快捷键起作用？

最佳答案

TDataModule不是TCustomForm的后代，而是TComponent的后代。因此，数据模块没有窗口句柄来接收消息，也没有对TCustomForm之类的快捷方式进行处理。

function TCustomForm.IsShortCut(var Message: TWMKey): Boolean;

  function DispatchShortCut(const Owner: TComponent) : Boolean;
  .....
  .....