OnFormCursor イベント

コンポーネント: TPdf · ユニット: PDFium

ポインター下のフィールドについてフォームレイヤーがカーソル形状を要求したときに発火します

構文

property OnFormCursor: TPdfFormCursorEvent read FOnFormCursor write FOnFormCursor;

説明

OnFormCursor は、インタラクティブフォームレイヤーが表示すべきカーソルを問い合わせたときに発火します。ハンドラーは TPdfFormCursor 型にデコードされた Cursor (pfcUnknown、pfcArrow、pfcSizeNESW、pfcSizeNWSE、pfcVerticalBeam、pfcHorizontalBeam、pfcHand)、生の NativeCursorType コード、および var Handled フラグを受け取ります

Handled = True を設定するとホスト固有のカーソルを適用します。ハンドラーが割り当てられていない場合や Handled が False のままの場合、コンポーネントはデコードされた値を対応する VCL カーソルにマッピングします

備考

ハンドラー署名: procedure(Sender: TObject; Cursor: TPdfFormCursor; NativeCursorType: Integer; var Handled: Boolean) of object
フォームホストコールバックが完全にそろっていることが前提です。イベントが一向に発火しない場合は FormHostCallbacksComplete を確認してください

例

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;