Есть список отчётов. Для предварительного просмотра при выборе отчёта необходимо показывать пользователю только первую страницу отчёта. Как это сделать?

Question: Есть список отчётов. Для предварительного просмотра при выборе отчёта необходимо показывать пользователю только первую страницу отчёта. Как это сделать?

Answer:

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.frxReport1Progress(Sender: TfrxReport; ProgressType: TfrxProgressType; Progress: Integer;) 
begin 
if Progress > 1 then 
frxReport1.Engine.StopReport; 
end; 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
frxReport1.PrepareReport(); 
while frxReport1.PreviewPages.Count > 1 do 
frxReport1.PreviewPages.DeletePage(1); 
frxReport1.ShowPreparedReport; 
end;