macos - 使用 Firemonkey 2 (FMX2) 以跨平台方式设置鼠标位置

Question

Firemonkey 2 (FMX2) 中有该界面

IFMXMouseService = 接口(interface)(IInterface) ['{2370205F-CF27-4DF6-9B1F-5EBC27271D5A}']

该接口(interface)只有一个 GetMousePos 函数。但是如何以跨平台的方式设置鼠标位置呢？大家有什么想法吗？

我想到的最好的想法是进行条件编译，直到 FMX 中存在这种可能性 - 但我不知道如何通过 Delphi for MACOSX 设置鼠标位置。我将不胜感激任何帮助。

Answer 1

这是您需要的程序。您必须将 macapi.coregraphics 和 macapi.cocoatypes 添加到您的 use 子句中。

procedure setmousepos(x,y:single);

var aNSPoint:NSPoint;

begin
  aNSPoint.x:=x;
  aNSPoint.y:=y;
  CGWarpMouseCursorPosition(aNSPoint);
end;

您当然可以传递一个 TPointF 来代替 X,Y，但您仍然需要单独设置 NSPoint X 和 Y，因为 NSPoint 与 TPointF 不同。

问候

戴夫·彼得斯
DP软件
www.dpsoftware.com/firemonkey