OnFormCursor Событие

Компонент: TPdf · Модуль: PDFium

Срабатывает, когда слой форм запрашивает форму курсора для поля под указателем

Syntax

property OnFormCursor: TPdfFormCursorEvent read FOnFormCursor write FOnFormCursor;

Description

OnFormCursor срабатывает, когда интерактивный слой форм спрашивает, какой курсор показать. Обработчик получает декодированное значение Cursor типа TPdfFormCursor (pfcUnknown, pfcArrow, pfcSizeNESW, pfcSizeNWSE, pfcVerticalBeam, pfcHorizontalBeam, pfcHand), исходный код NativeCursorType и флаг var Handled

Установите Handled = True, чтобы применить специфичный для хост-приложения курсор; если обработчик не назначен или Handled остаётся False, компонент отображает декодированное значение на соответствующий курсор VCL

Remarks

Сигнатура обработчика: procedure(Sender: TObject; Cursor: TPdfFormCursor; NativeCursorType: Integer; var Handled: Boolean) of object
Требует полноты обратных вызовов хоста форм; проверяйте FormHostCallbacksComplete, если событие не срабатывает вовсе

Example

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;