在VCL(Delphi 2010)中,我使用了此功能来检查是否按下了控制键:

function IsControlKeyPressed: Boolean;
begin
  Result := GetKeyState(VK_CONTROL) < 0;
end;


GetKeyState是Windows库中的函数,我不想将其包含在我的项目中。

如何检查XE3中是否已按下Control键或Shift键以进行Firemonkey应用程序?

最佳答案

如果对其他人有帮助,这是我的部门:

unit uUtils;

interface

uses
{$IFDEF MSWINDOWS}
  Winapi.Windows;
{$ELSE}
  Macapi.AppKit;
{$ENDIF}
function IsControlKeyPressed: Boolean;
function IsShiftKeyPressed: Boolean;

implementation

function IsControlKeyPressed: Boolean;
begin
{$IFDEF MSWINDOWS}
  Result := GetKeyState(VK_CONTROL) < 0;
{$ELSE}
  Result := NSControlKeyMask and TNSEvent.OCClass.modifierFlags = NSControlKeyMask;
{$ENDIF}
end;

function IsShiftKeyPressed: Boolean;
begin
{$IFDEF MSWINDOWS}
  Result := GetKeyState(VK_SHIFT) < 0;
{$ELSE}
  Result := NSShiftKeyMask and TNSEvent.OCClass.modifierFlags = NSShiftKeyMask;
{$ENDIF}
end;

end.

关于delphi - firemonkey中的GetKeyState,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/13492531/

10-12 21:16