RM报表预览窗口和预览控件直接的链接

procedure TRMPreviewForm.Execute(aDoc: Pointer);
begin
  FDoc := aDoc;
  FViewer.FPrepareReportFlag := False;
  FViewer.ShowToolbar := True;
  FViewer.Connect(aDoc);

  if (FViewer.Dock971 <> nil) and (FViewer.FReport <> nil) then
    FViewer.Dock971.ShowHint := THackReport(FViewer.FReport).ShowPreviewHint;

  FSaveOpenDialogDir := FViewer.InitialDir;
  FSaveSaveDialogDir := FViewer.InitialDir;
  if TRMReport(ADoc).ModalPreview and (not TRMReport(ADoc).MDIPreview) then
    ShowModal
  else
    Show;
end;