property OnFormCursor: TPdfFormCursorEvent read FOnFormCursor write FOnFormCursor;
OnFormCursor wird ausgelöst, wenn die interaktive Formularebene fragt, welcher Cursor angezeigt werden soll. Der Handler empfängt den dekodierten Cursor vom Typ TPdfFormCursor (pfcUnknown, pfcArrow, pfcSizeNESW, pfcSizeNWSE, pfcVerticalBeam, pfcHorizontalBeam, pfcHand), den rohen NativeCursorType-Code und ein var Handled-Flag
Setzen Sie Handled = True, um einen hostspezifischen Cursor anzuwenden; ist kein Handler zugewiesen oder bleibt Handled gleich False, ordnet die Komponente den dekodierten Wert dem passenden VCL-Cursor zu
procedure(Sender: TObject; Cursor: TPdfFormCursor; NativeCursorType: Integer; var Handled: Boolean) of objectFormHostCallbacksComplete, wenn das Ereignis nie ausgelöst wirdprocedure TMain.Pdf1FormCursor(Sender: TObject; Cursor: TPdfFormCursor; NativeCursorType: Integer; var Handled: Boolean);
begin
if Cursor= pfcVerticalBeam then begin
Screen.Cursor := crIBeam;
Handled := True;
end;
end;