property OnFormCursor: TPdfFormCursorEvent read FOnFormCursor write FOnFormCursor;
OnFormCursor dispara quando a camada de formulários interativos pergunta qual cursor mostrar. O manipulador recebe o Cursor decodificado do tipo TPdfFormCursor (pfcUnknown, pfcArrow, pfcSizeNESW, pfcSizeNWSE, pfcVerticalBeam, pfcHorizontalBeam, pfcHand), o código bruto NativeCursorType e uma flag var Handled
Defina Handled = True para aplicar um cursor específico do host; quando nenhum manipulador está atribuído ou Handled permanece False, o componente mapeia o valor decodificado no cursor VCL correspondente
procedure(Sender: TObject; Cursor: TPdfFormCursor; NativeCursorType: Integer; var Handled: Boolean) of objectFormHostCallbacksComplete quando o evento nunca disparaprocedure TMain.Pdf1FormCursor(Sender: TObject; Cursor: TPdfFormCursor; NativeCursorType: Integer; var Handled: Boolean);
begin
if Cursor= pfcVerticalBeam then begin
Screen.Cursor := crIBeam;
Handled := True;
end;
end;