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

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

有人知道如何为Pen编程吗？具体来说，要捕获压力水平，请按下笔，按下笔和移动笔事件。

最佳答案

您的应用程序需要处理 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;