Wenn ShowProgress ein Event ist, dann vielleicht so...
Delphi-Quellcode:
procedure TfrmReports.frxReport1Progress(Sender: TfrxReport;
ProgressType: TfrxProgressType; Progress: Integer);
var
iMaxPages, i: integer;
begin
frxReport1.OldStyleProgress := false;
frxReport1.ShowProgress := true;
iMaxPages := frxReport1.PreviewOptions.PagesInCache;
if ProgressType = ptRunning then
frxReport1.SetProgressMessage('Please wait.');
for i := 0 to iMaxPages do
Progress := i+1;
end;
Doch da tut sich auch nix.
