打印(显示)当前页号

niochen

于 2009-02-20 09:49:00 发布

阅读量592

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/jfree5200/article/details/3912868

Delphi 专栏收录该内容

95 篇文章

订阅专栏

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；