Установка THotKey в VK_NEXT приводит к отображению «NUM 3»

Question

Очень простой тестовый случай:

альтернативный текст http://17slon.com/krama/hotkey.png

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

Нажмите клавишу «PgDn» в первом THotKey, и отобразится «Page Down».Нажмите кнопку ==>, и на втором THotKey отобразится «Num 3».

Подобные вещи случаются, если нажимаются модификаторы (Shift и т. Д.).Это поведение также применимо к PgUp, Home, End и Ins.

Насколько я вижу, это происходит где-то внутри Windows :( Правильный виртуальный код (34) отправляется вдоль сообщения HKM_SETHOTKEY.

Кто-нибудь знает хороший обходной путь? В настоящее время единственная идея, которую я получил, - отправлять поддельные сообщения WM_KEYDOWN / WM_KEYUP с параметрами, установленными в VK_NEXT и MapVirtualKey (VK_NEXT), но это довольно уродливо ...

---

Горячие клавиши - это просто простые клавиши:

  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;