Как программировать на 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;