Text Path Notification Overflow

    • Offizieller Beitrag

    You can get the page count of the body text in OnChangeSelection. That page count is the count of filled boxes:

    procedure TWPTextPathDemo.WPRichText1ChangeSelection(Sender: TObject);
    begin
    Caption := IntToStr(WPRichText1.BodyText.PageCount);
    end;

    WPRichText1.PageCount will not work, that's always 1.