delphi – 为什么VK_Control VKHome不能为我工作？

发布时间：2020-12-15 09:43:04 所属栏目：大数据来源：网络整理

导读：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; 解决方法要检查VK_CONTROL虚拟键的状态,必须使用 GetKeyState 功能. 试试这个样

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;

解决方法

要检查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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!