delphi - 将 THotKey 设置为 VK_NEXT 会导致显示 "NUM 3"

Question

一个非常简单的测试用例:

_{(来源:17slon.com)}

procedure TForm3.btnCopyClick(Sender: TObject);
begin
  HotKey2.HotKey := HotKey1.HotKey;
end;

按第一个THotKey中的“PgDn”键，显示“Page Down”。单击==>按钮，第二个THotKey将显示“Num 3”。

如果按下修饰键(Shift 等)，也会发生类似的情况。该行为也适用于 PgUp、Home、End 和 Ins。

据我所知，这种情况发生在 Windows 内部的某个地方:(正确的虚拟代码 (34) 是随 HKM_SETHOTKEY 消息一起发送的。

有人知道一个好的解决方法吗？目前，我唯一的想法是发送假的 WM_KEYDOWN/WM_KEYUP 消息，并将参数设置为 VK_NEXT 和 MapVirtualKey(VK_NEXT) 但这有点难看......

<小时/>

热键只是简单的THotKeys:

  object HotKey1: THotKey
    Left = 12
    Top = 14
    Width = 121
    Height = 19
    InvalidKeys = []
    Modifiers = []
    TabOrder = 0
  end
  object HotKey2: THotKey
    Left = 194
    Top = 14
    Width = 121
    Height = 19
    InvalidKeys = []
    Modifiers = []
    TabOrder = 1
  end
  object btnCopy: TButton
    Left = 143
    Top = 14
    Width = 42
    Height = 19
    Caption = '==>'
    TabOrder = 2
    OnClick = btnCopyClick
  end

Answer 1

hkExt 修饰符很重要，也需要复制:

HotKey2.HotKey := HotKey1.HotKey;
HotKey2.Modifiers := HotKey1.Modifiers;