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

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 14 行

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；