OnFormCursor 事件

OnFormCursor 在交互式表单层询问应显示哪种光标时触发。处理器接收解码后的 Cursor（类型为 TPdfFormCursor，取值 pfcUnknown、pfcArrow、pfcSizeNESW、pfcSizeNWSE、pfcVerticalBeam、pfcHorizontalBeam、pfcHand）、原始 NativeCursorType 代码，以及一个 var Handled 标志

设置 Handled = True 可应用宿主特定的光标；当未指派处理器或 Handled 保持 False 时，组件会把解码值映射到匹配的 VCL 光标

• 处理器签名：procedure(Sender: TObject; Cursor: TPdfFormCursor; NativeCursorType: Integer; var Handled: Boolean) of object
• 要求表单宿主回调完整；当事件从不触发时，请检查 FormHostCallbacksComplete

procedure TMain.Pdf1FormCursor(Sender: TObject; Cursor: TPdfFormCursor; NativeCursorType: Integer; var Handled: Boolean);
begin
  if Cursor= pfcVerticalBeam then begin
    Screen.Cursor := crIBeam;
    Handled := True;
  end;
end;