OnFormCursor الحدث

يُطلق OnFormCursor عندما تسأل طبقة النماذج التفاعلية أي مؤشر تُظهر. يستقبل المعالج القيمة Cursor المفكوكة من النوع TPdfFormCursor (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;