delphi - Microsoft の Surface ペン用に Delphi でプログラミングするには?

Question

Surface ペン機能をアプリケーションに統合したいと考えています。Delphi 10 Seattle を使用して記述されています。私はウェブ全体を検索しましたが、何も見つかりません。

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

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;