procedure TRpPreviewForm.RvRenderPreview1ZoomChange(Sender: TObject); var String1: string[10]; begin Str(RvRenderPreview1.ZoomFactor:1:1,String1); // 将double类型的ZoomFactor缩放百分数根据指定的位数转换为串, //并存入到String1中 ZoomEdit.Text := S1; // 显示新的缩放因子 RvRenderPreview1.RedrawPage; // 在预览屏幕上重新显示当前报表页 end;