Sorry, aber Lösung schon selber gefunden. Manchmal kommt dann doch der Gedankengang...
Hier die Lösung...
in der Form wo die PreviewForm liegt...
Delphi-Quellcode:
procedure TfReportClient.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if frmReportVorschau1.frxPreview1.Focused then
frmReportVorschau1.frxPreview1.MouseWheelScroll(WheelDelta);
if fPrintTemplates.frxPreview.Preview.Focused then
fPrintTemplates.frxPreview.Preview.MouseWheelScroll(WheelDelta);
end;
Da auf der PreviewForm ein TfrxPreview liegt, muss natürlich mit
frxPreview.Preview.
auf die Funktion
MouseWheelScroll(WheelDelta);
zugegriffen werden.
Vorher noch den Focus richtig setzen...
Delphi-Quellcode:
frxReport_Final.ShowPreparedReport;
frxPreview.Preview.SetFocus;
except
Gruß Jens