procedure TPreForm.RvRenderPreview1PageChange(Sender: TObject); begin with RvRenderPreview1 do begin PageEdit.Text := IntToStr(CurrentPage); // 获取当前页号,并将其转换成字符类型 PageLabel.Caption := '第 ' + IntToStr(CurrentPage -FirstPage + 1) + ' 页/ ' + IntToStr(Pages); // 在页标签上显示“第X页/总页数” end; { with } end;
打印(显示)当前页号
最新推荐文章于 2024-07-31 17:50:19 发布