MicrosoftのSurface Pen用にDelphiでプログラミングするには？

Question

サーフェイスペンの機能をアプリケーションに統合したいと考えています。これは、Delphi 10 Seattleを使用して書かれています。私はウェブ全体を検索して何も見つけることができません。

ペンのプログラミング方法を知っている人はいますか？具体的には、圧力レベル、ペンダウン、ペンアップおよびペン移動イベントをキャプチャする。

Answer 1

アプリケーションでWM_POINTERUPDATEメッセージを処理する必要があります。そのメッセージ中に

あなたはPOINTER_PEN_INFO structureとして、ポインタの現在のステータスに関する情報を取得するためにGetPointerPenInfoを呼び出すことができます。

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