怎么禁止QuickRep的预览窗口最小化功能？

[Veeve]

是这样的，当执行QuickRep->Preview();后显示打印预览窗口，一旦点击最小化按钮后预览窗口就不见了，我不知道怎么再让用户操作使它恢复出来，所以我想把最小化功能禁止掉，该怎么做？

[ghui]

没有办法！

[ghui]

需要自己做一个窗体替换它的Preview方法。

下面是它的Preview源代码的内容

procedure TCustomQuickRep.Preview;
begin
Application.ProcessMessages;
if PrepareQRPrinter and not QRPrinter.ShowingPreview then
begin
QRPrinter.Destination := qrdMetafile;
QRPrinter.Master := Self;
QRPrinter.OnPrintSetup := PrinterSetup;
QRPrinter.OnExportToFilter := ExportToFilter;
QRPrinter.Title := ReportTitle;
if assigned(FOnPreviewEvent) then
QRPrinter.OnPreview := FOnPreviewEvent;
QRPrinter.Preview;
CreateReport(false);
if Cancelled then
begin
QRPrinter.Free;
Exit;
end;
repeat
Application.HandleMessage
until (QRPrinter = nil) or (not QRPrinter.ShowingPreview) or Application.Terminated;
end;
end;

[hongliqiu]

只能自己做个预览窗口。

[blankman]

在bcb的安装目录下有个窗体，\borland\bcb\lib下，应该叫做qrprev.dfm（delphi的叫法，号就不用bcb了，bcb叫什么我忘了）吧，你把这个窗体打开，像普通窗体那样去掉最小化按钮就好了

不过推荐学习一个其他的报表控件，QuickReport打印用户自定义纸张时有问题