~~~~~~~~~~~~最后一次请教，如何使用自己定义的报表浏览窗体~~~~~~~~~~~~

Question

to zswang(伴水)(被黑中)
 哎~~~~~~~~~~~
2，还有，你知道怎么样把浏览窗口的最小化按钮取消？
3，怎样把那个close改成“关闭”？？？ 

Answer 1

 to zswang(伴水)(被黑中)　 
打印效果行就可以已经很好！  这话你告诉你徒弟去啊？
偶被徒弟欺负，还要被师傅训
这是什么世道了嘻嘻，刺的师傅，你还是帮着想想吧，

Answer 2

http://www.csdn.net/Expert/topic/435/435743.shtm

Answer 3

to awen800(我本楚狂人)　看见给你的帖子没啊~~~~~~~~~~笨笨

Answer 4

在一公用窗体中加一事件
uses UPreviewForm;
procedure FCommonForm.QuickRepOnPreview(Sender: TObject);
begin
  FPreviewForm := TFPreviewForm.Create(Application);
  FPreviewForm.QRPreview1.QRPrinter := TQRPrinter(Self);
  FPreviewForm.Show;
end;
再写如下代码
procedure TForm1.Button1Click(Sender: TObject);
var
  qr: TQuickRep;
begin
  qr := TQuickRep.Create(Self);
  try
    qr.OnPreview := FCommonForm.QuickRepOnPreview;
    qr.Preview;
  finally
    qr.Free;
  end;end;
试试吧，应该可以的

Answer 5

 to 3fly(三飞)　
请问公用窗体是指什么窗体？要有QuickRepOnPreview这个事件，似乎必须要加一个quickrep控件，你这里的公用窗体要不是要加这个控件？我的quickrep是动态生成的，，不是事前做好的窗体，明白吗？

Answer 6

to snowty(雪儿);
我的答案已在电脑上测试,可行.但请你自己完善
步骤如下:

Answer 7

1.建好你的主Form,添上必要的uses, 诸如quickrpt, qrextra, QRExport, qrprntr等
2.新建一个名叫PreView的Form,放上一个TQRPreview的控件,再放上诸如翻页,关闭之类的按钮
3.在主Form的Uses中加上PreView

Answer 8

4.在主Form的private声明中加上procedure MyPreview(Sender: TObject);按Shift+Ctrl+C篡完成类实现
5.在MyPreview的实现中写上
PreViewForm.QRPreview1.QRPrinter:= TQRPrinter(Sender);

Answer 9

 to 3fly(三飞）我建了一个窗体，上面加了一个quickrep控件，
可是在执行到qr.Preview时，出现提示：invalid float point operation ,
这里和浮点有什么关系啊？
procedure Tqq.QuickRepPreview(Sender: TObject);
       //Tqq是公用的一个quickrep窗体
begin
  FormPreview:= TFormPreview.Create(Application);
  FormPreview.QRPreview.QRPrinter := TQRPrinter(Self);
  FormPreview.Show;end;procedure TForm1.Button1Click(Sender: TObject);    q1: TQuickRep;//qq1是form1上一个quickrep控件，是真正要显示的地方
begin
    //qr := TQuickRep.Create(Self);    qq1.OnPreview :=qq.QuickRepPreview;
    qq1.Preview;///出错？？？？？？why？？end;

Answer 10

6.在主FORM你用程序生成TCustomQuickRep的对象(假定它的名字为aReport)后,
写上:
  aReport.OnPreview :=MyPreview;
  PreViewForm.Show;
  aReport.Preview;
明白了吧?

Answer 11

to awen800(我本楚狂人)　
你看没看我的程序啊？
不就是和你一样的步骤吗？
可是出错
在执行到aReport.Preview;时
出现：invalid float point operation ,
明白吗？思路谁不会啊？哼
现在就是要调试出来，

Answer 12

4.在主Form的private声明中加上procedure MyPreview(Sender: TObject);按Shift+Ctrl+C篡完成类实现
5.在MyPreview的实现中写上
PreViewForm.QRPreview1.QRPrinter:= TQRPrinter(Sender);PreViewForm这是自己定义的浏览窗口
在主Form的private声明中加上procedure MyPreview
//为什么要加个MyPreview啊？这又是哪个窗体的名字？？

Answer 13

PreViewForm这是自己定义的浏览窗口
在主Form的private声明中加上procedure MyPreview
//为什么要加个MyPreview啊？这又是哪个窗体的名字？？这是一个过程的名字，随便你怎么取名，后面唯一使用的地方是
6.
aReport.OnPreview :=MyPreview;

Answer 14

aReport.OnPreview :=MyPreview; 这个等式是什么意思啊？实现什么啊？
这个过程实现什么？？
你看我现在的那段代码
把
procedure Tqq.QuickRepPreview(Sender: TObject);
      //Tqq是公用的一个quickrep窗体
begin
  FormPreview:= TFormPreview.Create(Application);
  FormPreview.QRPreview.QRPrinter := TQRPrinter(Self);
  //FormPreview.Show; 移走end;procedure TForm1.Button1Click(Sender: TObject);    q1: TQuickRep;//qq1是form1上一个quickrep控件，是真正要显示的地方
begin
    //qr := TQuickRep.Create(Self);    qq1.OnPreview :=qq.QuickRepPreview;
    FormPreview.Show;   //移动到此，，  
    qq1.Preview;///不出错了可以显示自己定义的窗体了，但是只是一个灰色的窗体，没有数据
而qq1是我静态测试的一个quickrep，上面拉了标签的，，
怎么回事？？

Answer 15

我知道了，你的mypreview就相当与我的那个QQ吗。上面只有一个quickrep
就是为了实现重载onpreviw事件的，是不是啊
这个过程就相当我的：
procedure Tqq.QuickRepPreview(Sender: TObject);
      //Tqq是公用的一个quickrep窗体
begin
  FormPreview:= TFormPreview.Create(Application);
  FormPreview.QRPreview.QRPrinter := TQRPrinter(Self);
  //FormPreview.Show; 移走end;这个吗，，是不是~~~~~~~~~~你调试一下不就可以了吗？这么说更耽误时间

Answer 16

procedure Tqq.QuickRepPreview(Sender: TObject);
begin
  //FormPreview:= TFormPreview.Create(Application);  //为什么加这句个不可以？
  FormPreview.QRPreview.QRPrinter := TQRPrinter(sender);
  //FormPreview.Show;//移走，不移走为什么不可以？？？end;procedure TForm1.Button1Click(Sender: TObject);
 var
    qr: TQuickRep;
begin
   qr := TQuickRep.Create(Self);    qq1.OnPreview :=qq.QuickRepPreview;
    qr.OnPreview :=qq.QuickRepPreview;
    FormPreview.Show;  //移到这里来，，，FormPreview是自己定义的浏览窗体
    qq1.Preview   ;
     
end;

Answer 17

你的mail?我用的是Delphi6.我把我的代码传给你好不好？
我现在没空，要不晚上6点以后我再研究

Answer 18

我用的是delphi5
你传[email protected]是六个1啊，不是L，
嘻嘻
现在又出现问题：
第一次查询时没问题
连续第二次查询出现错误提示：
project project1.exe raised exception class EAccessViolation with message
'Acess violation at address 004D0C8A in module' Project1.exe'.Read of
address 62796375'.Process stopped. Use Step or Run to continue.

Answer 19

to awen800(我本楚狂人)　要什么油？花生油还是石油？
收到信了，我在验证，，我的问题还没全部解决，
希望继续得到你的帮助，
谢谢谢谢谢谢谢谢谢谢
谢谢谢谢谢谢谢谢谢谢
谢谢谢谢谢谢谢谢谢谢
花生油豆油手油擦脸油
：）

Answer 20

去看一下http://www.csdn.net/Expert/topic/436/436251.shtm

Answer 21

to awen800(我本楚狂人)　在给你加了30分的油嘻嘻
我另开个帖子，你去回，
http://www.csdn.net/Expert/topic/436/436728.shtm
我的分就是没人送那，都
替那个懒刺猬送人了
55555555555555555555我收到你四个project1
unit1.pas
unit1,dfm
unit2.dbm
unit2,pas怎么没发啊？
你还是做好了给偶原码吧
 

Answer 22

to awen800(我本楚狂人)　 
可以了的话你要告诉我啊！  不好也告诉你啊
不过我是delphi5啊
能兼容吗？还有，顺便问一句，delphi6稳定吗？
嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻
 
 

Answer 23

to snowty(雪儿)：很抱歉，前几天一回答了这个问题就下网了，前天才上网，
我整理好一个例子后给你 妹儿