delphi - 如何在 Delphi 中为 Microsoft Surface Pen 编程？

Question

我想将 Surface 笔功能集成到我的应用程序中。它是使用 Delphi 10 Seattle 编写的。我在整个网络上进行了搜索，但找不到任何东西。

有人知道如何为 Pen 编程吗？具体来说，捕获压力水平、落笔、抬起笔和移动笔事件。

Answer 1

您的应用程序需要处理 WM_POINTERUPDATE信息。

在该消息期间您可以调用 GetPointerPenInfo检索有关指针当前状态的信息，如 POINTER_PEN_INFO structure :

POINTER_PEN_INFO = record
   pointerInfo: POINTER_INFO;
   penFlags: PEN_FLAGS;
   penMask: PEN_MASK;
   pressure: UINT32;
   rotation UINT32;
   tiltX: INT32; 
   tiltY: INT32;
end;