求救，关于QuickRep.Preview 的简单问题，谢谢，急，急，急，马上给分

Question

QuickRep，谁让你最小化它啦？呵呵；
你不要最小化它， 这好像是它的bug,具体的我也没有找过原因

Answer 1

上面的兄弟，怎么能使QuickRep 不能最小化，客户无法点，谢谢，如果可以，马上给分，谢谢，急，求救，

Answer 2

unit m_zpgrjl;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  QuickRpt, ExtCtrls, Qrctrls, Buttons, ToolWin, ComCtrls, Db,
  DBTables, QRPrntr;type
  Tzpgrjl = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    QRPreview1: TQRPreview;
    PrinterSetupDialog1: TPrinterSetupDialog;
    Query1: TQuery;
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    table:string;
    { Public declarations }
  end;var
  zpgrjl: Tzpgrjl;
  page:integer;
implementation
{$R *.DFM}procedure Tzpgrjl.SpeedButton7Click(Sender: TObject);
var
  i:integer;
begin
   with query1 do
   begin
      close;
      sql.Clear;
      sql.Add('select * from ');
      sql.Add(table);
      open;
      first;
      for i:=0 to recordcount-1 do          //删除空记录
      begin
         if fieldbyname('xm').value=null then
         begin
             delete;
         end;
         next;
      end;
      database.StartTransaction;
      try
         applyupdates;
         database.Commit;
      except
         database.Rollback;
      end;
      commitupdates;
   end;
   close;
end;procedure Tzpgrjl.SpeedButton5Click(Sender: TObject);
begin
   printersetupdialog1.Execute;
end;procedure Tzpgrjl.SpeedButton1Click(Sender: TObject);
begin
   if page=200 then
      exit;
   page:=page+5;
   QRPreview1.Zoom:=page;              //放大
end;procedure Tzpgrjl.SpeedButton2Click(Sender: TObject);
begin
   if page=0 then
      exit;
   page:=page-5;
   QRPreview1.Zoom:=page;              //缩小
end;procedure Tzpgrjl.SpeedButton3Click(Sender: TObject);
begin
   QRPreview1.PageNumber:=QRPreview1.PageNumber-1;    //上一页
end;procedure Tzpgrjl.SpeedButton4Click(Sender: TObject);
begin
   QRPreview1.PageNumber:=QRPreview1.PageNumber+1;    //下一页
end;procedure Tzpgrjl.FormShow(Sender: TObject);
begin
   page:=100;
end;procedure Tzpgrjl.SpeedButton6Click(Sender: TObject);
begin
   QRPreview1.QRPrinter.Print;                       //打印
end;procedure Tzpgrjl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   action:=cafree;
end;end.

Answer 3

呵呵，你试一试再说啊，上边的是你自己做的一个窗体，你想让这个窗体上的最小化铵钮不起作用还不好办？你就是让它边框为None也行的；

Answer 4

不是我都写好了，出现问题，我一点，马上进入 预览  模式，
那么 预览 是属于 QuickRep ，QuickRep没有任何的边框属性和控制，或最小化事件，如何解决呢，谢谢，

Answer 5

如何能关闭QuickRep 的 预览 呢，我如果事先不知道他是否已经最小化，我可以用这个方法关闭它啊，谢谢，有办法吗，