Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/delphi/8.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Delphi 将THotKey设置为VK_NEXT将导致;数字3“;展示_Delphi_Winapi - Fatal编程技术网

Delphi 将THotKey设置为VK_NEXT将导致;数字3“;展示

Delphi 将THotKey设置为VK_NEXT将导致;数字3“;展示,delphi,winapi,Delphi,Winapi,一个非常简单的测试用例: (来源:) 按第一个按键中的“PgDn”键,显示“向下翻页”。单击==>按钮,第二个THotKey将显示“Num 3” 如果按下修改器(Shift等),也会发生类似的情况。该行为也适用于PgUp、Home、End和Ins 据我所见,这种情况发生在Windows内部的某个地方:(正确的虚拟代码(34)随HKM_SETHOTKEY消息一起发送 有人知道一个很好的解决方法吗?目前,我唯一的想法是发送假WM_KEYDOWN/WM_keydup消息,参数设置为VK_NEXT和M

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


(来源:)

按第一个按键中的“PgDn”键,显示“向下翻页”。单击==>按钮,第二个THotKey将显示“Num 3”

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

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

有人知道一个很好的解决方法吗?目前,我唯一的想法是发送假WM_KEYDOWN/WM_keydup消息,参数设置为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

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

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

谢谢!事实上,只有hkExt必须单独复制,所有其他修改器都打包到热键中。(在现实世界中,我在坚持THotKey状态时遇到问题,但这样更容易显示问题。)
HotKey2.HotKey := HotKey1.HotKey;
HotKey2.Modifiers := HotKey1.Modifiers;