报表预览问题！(100分)

W

woofer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-29

• #1

如何把报表预览窗口的极小化按钮去掉？

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-29

• #2

用什么做的,以后说明白点

 

L

liu_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #3

gz

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #4

什么报表系统?方法有多种!
1、自己写预览窗口
2、如果有源码，改！
3、找到窗口句柄，改它的属性。

 

苦

苦虫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #5

同意楼上的

 

W

woofer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #6

报表代码如下
unit RepAll;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
QuickRpt, ExtCtrls;
type
TFrmRepAll = class(TForm)
QuickRep1: TQuickRep;
QRCompositeReport1: TQRCompositeReport;
procedure QRCompositeReport1AddReports(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FrmRepAll: TFrmRepAll;
implementation
uses FrmQRepPart1, FrmQRepPart2, FrmQrepPart3,FrmQRPart4;
{$R *.DFM}
procedure TFrmRepAll.QRCompositeReport1AddReports(Sender: TObject);
begin
with QRCompositeReport1do
begin
reports.Add(FrmQRPart1.qrPart1);
reports.Add(FrmRepPart2.qrPart2);
reports.Add(FrmQRPart3.qrPart3);
reports.Add(FrmRepPart4.qrPart4);
end;
end;

end.

在程序的其他地方调用 FrmRepAll.QRCompositeReport1.Preview;
就是要去掉这个预览的窗口的极小化按钮。
报表的几个部分都是用的TQuickRep组件。
谢谢各位，很急的！

 

Q

Qiuliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #7

修改 QRPrev.dfm 或自己做个预览窗口。

 

W

woofer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #8

说详细一点可以么？不是很懂阿

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #9

几个解决的办法：
1、自制预览窗体：这个是正解，给程序如果是中文的话，有一个英文的预览窗体是极不
协调的。起码也得汉化一下吧？不过看你的情况，可能没时间来做。
2、变通：可能你想去掉“最小化”按钮是不想上客户在预览时按下最小化后造成客户重复
按预览，导致系统报错。其实这可以变通的解决，如果你的预览窗口是ShowModal的，
预鉴窗口最小化后后面的窗口也不会获得焦点，就不会有上面的问题了。
你只要把调用预览的地方：FrmRepAll.QRCompositeReport1.Preview;
改成FrmRepAll.QRCompositeReport1.PreviewModal;这样预览窗口就是ShowModal的了。
3、改预览窗口的设置：直接改Qrprev.dfm的设置，把它的最小化设掉。
4、运行时用FindWindow找到预览窗口，再用SetWindowLong把它设为的最小化按钮去掉
具体的看看Win32 API帮助。

 

W

woofer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #10

能不能把第4点说得再详细一点？谢谢

 

W

woofer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #11

而且我已经把QRCompositeReport1所在的FrmRepAll窗口的设置成没有极小化按钮了，可是
预览时还是有极小化按钮，是不是QRCompositeReport1的preview时会产生一个新的窗口？

 

W

woofer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #12

对于杜宝同志说的第2种方法，QRCompositeReport1也没有PreviewModal方法啊？
我好着急啊！麻烦各位了！

 

Z

zhaohai9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #13

查找qrprev.dfm文件,用delphi打开.编辑为:
object QRStandardPreview: TQRStandardPreview
Left = 229
Top = 191
Width = 652
Height = 579
BorderIcons = [biSystemMenu] //---------注意此行为增加的
borderstyle = bsSingle //---------注意此行为增加的
Caption = 'Print Preview'
Color = clBtnFace
ParentFont = True
KeyPreview = True
..............
预览 ok!!!

 

W

woofer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #14

还是不行！
在object QRCompositeReport1中加上BorderIcons = [biSystemMenu] borderstyle = bsSingle
编译出错，没有这两个属性。

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #15

老大，拜托看清楚我们在上面说的：
是qrprev.dfm，不是你的QRCompositeReport1
不如你留你妹儿，我发个“补丁”给你，OK?

 

W

woofer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #16

我的mail是bookonline@263.net
拜托了!

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #17

已发，请查收

 

W

woofer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #18

还是不行！怎么回事？

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #19

怎么个不行法？

 

W

woofer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #20

按照你的方法修改了qrprev.dfm，
加上了
BorderIcons = [biSystemMenu]
borderstyle = bsSingle
可是预览时还是有极小化按钮啊！[][][]