实例——打印(显示)当前页号.txt

Delphi 7组件应用实例 书籍语言： 简体中文 书籍类型： 程序设计 授权方式： 免费软件 书籍大小： 105 KB

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；