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

Question

我想将表面笔功能集成到我的应用程序中。它是使用 Delphi 10 Seattle 编写的。我在网上搜索了所有内容，但找不到任何东西。

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

Answer 1

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

在该消息期间，您可以调用GetPointerPenInfo以检索有关指针当前状态的信息作为POINTER_PEN_INFO结构：

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