お世話になります。
環境は、Win8、Delphi３です。
クイックレポートを動的生成して、
bqand,sharp,labelを張り付けて、
form1に張り付けています。
しかし、button1を押すと、
白紙のクイックレポートウインドウしか表示されません。
以前に作成した、同様の手法を使ったクイックレポートのプログラムは、
問題なく上記の環境でも編集でき、動いています。
同じコードで書いたつもりなのですが、
クイックレポートには、白紙しか表示されません。
何がいけないのでしょうか？？
どなたかお知恵をお貸しいただけると助かります。
よろしくお願いします。
procedure TForm1.Button1Click(Sender: TObject);
var
qrp:TQuickRep;
crp:TQRShape;
bnd:TQRChildBand;
lb:TQrLabel;
c,tp,lft,wdh,hit,count:integer;
begin
qrp := TQuickRep.Create(self);
qrp.Parent := form1;
qrp.Visible := true;
tp := 0; wdh := 50;
for count := 0 to 5 do begin
lft := 0;
bnd := TQRChildBand.Create(self);
bnd.Parent := qrp;
bnd.Name := 'bnd' + inttostr(count);
bnd.Visible := true;
hit := bnd.Height;
for c := 0 to 5 do begin
crp := TQRShape.Create(self);
lb := TQrLabel.Create(self);
with crp do begin
parent := bnd;
left := lft;
height := hit;
width := wdh;
top := tp;
name := 'crp' + inttostr(count) + inttostr(c);
Visible := true;
end;
with lb do begin
parent := bnd;
left := lft;
height := hit;
width := wdh;
top := 5;
name := 'lb' + inttostr(count) + inttostr(c);
Visible := true;
end;
lft := lft + wdh;
end;
end;
qrp.Preview;
end;
Delphi３ってwin8対応してない気がしますが・・・
QickReprotのバージョンはいくつでしょうか？
こちらでは、（今のところ…）問題なくDelphi３は動いております。
色々とWin８上で設定が必要でしたが…。
ちなみに、データベースも、Paradoxを除けば、動作しました。
バージョンは、
QuickReport 2.0 Professional
になります。
以前作成したQuickReportのプログラムは、先ほど確認しましたが、
Win８上で問題なく動いています。
新規作成時に問題があるのでしょうか？？
こちらのコードミスの可能性が高い気もするのですが…。
お騒がせしました、
自己解決しました。
理由は不明ですが、Qrbandコンポーネントが、原因だったみたいです。
Qrbandを外して、
直接QreportにSharpとLabelを落としたら、無事描画されました。
これで何とか先に進めそうです。
解決済みですが、TQRChildBandではなくTQRBandではないでしょうか？
編集 削除じゃなくて、BandTypeがrbDetailのQRBandがないとか、
ChildBandのParentbandプロパティがないとか、
あとは、OnNeedDataがないとか。