macos – 如何在OSX上使用FireMonkey获取当前修饰符状态？

使用Delphi for Windows,我通常使用以下代码：

function isCtrlDown : Boolean;
var
  ksCurrent : TKeyboardState;
begin
  GetKeyboardState(ksCurrent);
  Result := ((ksCurrent[VK_CONTROL] and 128) <> 0);
end;

如何在Mac OSX上使用FireMonkey实现此目的？

我找到了this,但我不知道如何使用FireMonkey / Delphi(使用,……)来管理它：

void PlatformKeyboardEvent::getCurrentModifierState(bool& shiftKey,bool& ctrlKey,bool& altKey,bool& MetaKey)
{
    UInt32 currentModifiers = GetCurrentKeyModifiers();
    shiftKey = currentModifiers & ::shiftKey;
    ctrlKey = currentModifiers & ::controlKey;
    altKey = currentModifiers & ::optionKey;
    MetaKey = currentModifiers & ::cmdKey;
}

我还在调查……
现在,我发现这个单元有关键事件……
单位Macapi.AppKit;

解决方法

基于这个 answer你可以试试这个：

function isCtrlDown : Boolean; 
begin
    Result := NSControlKeyMask and TNSEvent.Occlass.modifierFlags = NSControlKeyMask;
end;