property OnFormCursor: TPdfFormCursorEvent read FOnFormCursor write FOnFormCursor;
OnFormCursor se déclenche lorsque la couche de formulaires interactive demande quel curseur afficher. Le gestionnaire reçoit le Cursor décodé de type TPdfFormCursor (pfcUnknown, pfcArrow, pfcSizeNESW, pfcSizeNWSE, pfcVerticalBeam, pfcHorizontalBeam, pfcHand), le code brut NativeCursorType et un indicateur var Handled
Définissez Handled = True pour appliquer un curseur propre à l’hôte ; lorsqu’aucun gestionnaire n’est assigné ou que Handled reste False, le composant fait correspondre la valeur décodée au curseur VCL approprié
procedure(Sender: TObject; Cursor: TPdfFormCursor; NativeCursorType: Integer; var Handled: Boolean) of objectFormHostCallbacksComplete lorsque l’événement ne se déclenche jamaisprocedure TMain.Pdf1FormCursor(Sender: TObject; Cursor: TPdfFormCursor; NativeCursorType: Integer; var Handled: Boolean);
begin
if Cursor= pfcVerticalBeam then begin
Screen.Cursor := crIBeam;
Handled := True;
end;
end;