delphi - 为什么左 ctrl 不触发 ssLeft？

Question

我创建了一个非常简单的 VCL 应用程序。它只是一个带有 TMemo 的表格。我在 TMemo 上添加了弹起按键事件。

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = Ord('X')) and (Shift * [ssCtrl, ssLeft] = [ssCtrl, ssLeft]) then
  begin
    ShowMessage('hi');
  end;
end;

即使我使用左CTRL + X，似乎永远无法检测到ssLeft。为什么会这样？

Answer 1

如这里所述:

TShiftState

ssLeft 不是键盘状态，而是鼠标状态。 IE。当您按下“X”键时，您正在检查是否按下了鼠标左键以及(任何)Ctrl 键。

为了检查是否专门按下了左控制键，而不是(也)右控制键，您需要将此添加到您的测试中:

USES WinAPI.Windows;

FUNCTION KeyPressed(VirtualKey : WORD) : BOOLEAN; INLINE;
  BEGIN
    Result:=(GetKeyState(VirtualKey) AND $80000000<>0)
  END;

FUNCTION LeftCtrl : BOOLEAN; INLINE;
  BEGIN
    Result:=KeyPressed(VK_LCONTROL)
  END;

FUNCTION RightCtrl : BOOLEAN; INLINE;
  BEGIN
    Result:=KeyPressed(VK_RCONTROL)
  END;

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = Ord('X')) and (Shift*[ssCtrl, ssShift, ssAlt] = [ssCtrl]) and LeftCtrl and not RightCtrl then
  begin
    ShowMessage('hi');
  end;
end;