QickReprotの編集内容がプレビューで反映されない (ID:44397)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

お世話になります。
環境は、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;

←解決時は質問者本人がここをチェックしてください。

戻る