用了消息循环，但主窗体的菜单快捷键不起作用。如：F4、Ctrl+D等

Question

我用了消息循环，但主窗体(TfrmMain)的菜单快捷键不起作用。如：F4、Ctrl+D等，窗体上TAB键又能移动控件焦点，请高手帮忙解决，谢谢！下面是项目文件的代码：program Main;uses
  Forms,
  Windows,
  UfrmMain in 'UfrmMain.pas' {frmMain};var
  FMsg: TMSG;
  FMain: TfrmMain;{$R *.res}begin
{
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
}  fmain:=tfrmmain.Create(application);
  fmain.show;
  while GetMessage(FMsg, 0, 0, 0) do begin
    TranslateMessage(FMsg);
    DispatchMessage(FMsg);
  end;end.

Answer 1

RegisterHotKey(m_hWnd, ID_F4, 0, VK_F4);
RegisterHotKey(m_hWnd, ID_CTRL_D, MOD_CONTROL, 68); 'ctrl+D'procedure WMHOTKEY(var AMsg: TMessage);message WM_HOTKEY;
var
  Pt: TPoint;
begin
  if AMsg.wParam = ID_F4 then
  begin  end
  else if AMsg.wParam = ID_CTRL_D then
  begin  end;
end;

Answer 2

自己通过 application.handlemessage 搞定。