补充: 调试时 提示 单元:frxClass中procedure TfrxReport.ShowPreparedReport;var WndExStyles: Integer; begin FPreviewForm := nil; if FPreview <> nil then begin FPreview.FReport := Self; FPreview.FPreviewPages := FPreviewPages; FPreview.Init; end else begin FPreviewForm := TfrxPreviewForm.Create(Application); with TfrxPreviewForm(FPreviewForm) do begin Preview.FReport := Self; Preview.FPreviewPages := FPreviewPages; FPreview := Preview; Init; if Assigned(FOnPreview) then FOnPreview(Self); if PreviewOptions.Maximized then Position := poDesigned; if FPreviewOptions.Modal then begin ShowModal; Free; end else begin if not FPreviewOptions.MDIChild then begin WndExStyles := GetWindowLong(Handle, GWL_EXSTYLE); SetWindowLong(Handle, GWL_EXSTYLE, WndExStyles or WS_EX_APPWINDOW); end; FreeOnClose := True; Show; end; end; end;end;红色那行出错,不知什么原因,在线急盼高手
调试时 提示
单元:frxClass中procedure TfrxReport.ShowPreparedReport;var
WndExStyles: Integer;
begin
FPreviewForm := nil;
if FPreview <> nil then
begin
FPreview.FReport := Self;
FPreview.FPreviewPages := FPreviewPages;
FPreview.Init;
end
else
begin
FPreviewForm := TfrxPreviewForm.Create(Application);
with TfrxPreviewForm(FPreviewForm) do
begin
Preview.FReport := Self;
Preview.FPreviewPages := FPreviewPages;
FPreview := Preview;
Init;
if Assigned(FOnPreview) then
FOnPreview(Self);
if PreviewOptions.Maximized then
Position := poDesigned;
if FPreviewOptions.Modal then
begin
ShowModal;
Free;
end
else
begin
if not FPreviewOptions.MDIChild then
begin
WndExStyles := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, WndExStyles or WS_EX_APPWINDOW);
end;
FreeOnClose := True;
Show;
end;
end;
end;end;红色那行出错,不知什么原因,在线急盼高手
FPreviewForm := TfrxPreviewForm.Create(Application);
这行