unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QuickRpt, ExtCtrls;    type
  TForm2 = class(TForm)
    QuickRep1: TQuickRep;
    QRSubDetail1: TQRSubDetail;
    procedure QRSubDetail1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private
   Color:int64;//目前的顏色
   function GetColor(Color:int64):int64;//得到反向的顏色
  public
    { Public declarations }
  end;    var
  Form2: TForm2;    implementation    {$R *.dfm}    function TForm2.GetColor(Color:int64):int64;
begin
if (Color=clRed)
 then Color:=clBlue//如果是紅色就換成藍色
 else Color:=clRed;
end;    procedure TForm2.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
Color:=GetColor(Color);//得到反向顏色
QRSubDetail1.Color:=Color;
end;    procedure TForm2.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
Color:=clRed;//初始顏色為紅色
end;    end.