property OnFormCursor: TPdfFormCursorEvent read FOnFormCursor write FOnFormCursor;
OnFormCursor se dispara cuando la capa de formularios interactivos pregunta qué cursor mostrar. El manejador recibe el Cursor decodificado de tipo TPdfFormCursor (pfcUnknown, pfcArrow, pfcSizeNESW, pfcSizeNWSE, pfcVerticalBeam, pfcHorizontalBeam, pfcHand), el código NativeCursorType sin procesar y una bandera var Handled
Establezca Handled = True para aplicar un cursor específico del host; cuando no hay ningún manejador asignado o Handled permanece en False, el componente asigna el valor decodificado al cursor VCL correspondiente
procedure(Sender: TObject; Cursor: TPdfFormCursor; NativeCursorType: Integer; var Handled: Boolean) of objectFormHostCallbacksComplete cuando el evento nunca se dispareprocedure TMain.Pdf1FormCursor(Sender: TObject; Cursor: TPdfFormCursor; NativeCursorType: Integer; var Handled: Boolean);
begin
if Cursor= pfcVerticalBeam then begin
Screen.Cursor := crIBeam;
Handled := True;
end;
end;