delphi - 为什么 VK_Control+VKHome 对我不起作用？

Question

procedure TSell.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.Message=WM_KEYDOWN)and(Msg.wParam=VK_CONTROL+VK_HOME)then
     begin
 end;

Answer 1

要检查 VK_CONTROL 虚拟键的状态，必须使用 GetKeyState功能。

尝试这个示例

procedure TSell.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.Message=WM_KEYDOWN) then
   if  (GetKeyState(VK_CONTROL) < 0) and (Msg.wParam=VK_HOME) then
    //do your stuff
end;