OnFormCursor händelse

Component: TPdf · Unit: PDFium

Utlöses när formulärlagret begär en markörform för fältet under pekaren

Syntax

property OnFormCursor: TPdfFormCursorEvent read FOnFormCursor write FOnFormCursor;

Description

OnFormCursor utlöses när det interaktiva formulärlagret frågar vilken markör som ska visas. Hanteraren tar emot den avkodade Cursor av typen TPdfFormCursor (pfcUnknown, pfcArrow, pfcSizeNESW, pfcSizeNWSE, pfcVerticalBeam, pfcHorizontalBeam, pfcHand), den råa NativeCursorType-koden och en var Handled-flagga

Sätt Handled = True för att tillämpa en värdsspecifik markör; när ingen hanterare är kopplad eller Handled förblir False mappar komponenten det avkodade värdet till motsvarande VCL-markör

Remarks

Hanterarsignatur: procedure(Sender: TObject; Cursor: TPdfFormCursor; NativeCursorType: Integer; var Handled: Boolean) of object
Kräver att formulärvärdens callbacks är kompletta; kontrollera FormHostCallbacksComplete när händelsen aldrig utlöses

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;