fastReport und ShowReport

[DevStar]

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.