実行時にTQReport要素を作成する

Question

実行時にTQReport要素を作成する。

まあ、少なくとも私はこのレポートに表示されるものとどのような見出しやデータを知りません...

をしようとしています。データの行と列を表すTStringのTListを取得します。グループのバンドプリントイベントには「作成」ディレクティブを、メインデータ行バンドにはOnNeedDataイベントを設定します。 しかし、何も表示されません。デザイン時にラベルを作成する必要がありますか？ほしくない。あなたが始めるのは

Answer 1

、この作品：

// uses QuickRpt, qrpBaseCtrls, QRCtrls, QRPrntr; 

procedure TForm1.Button1Click(Sender: TObject); 
var QR: TQuickRep; 
    QB: TQRBand; 
    QL: TQRLabel; 
begin 
    QR := TQuickRep.Create(Self); 
    try 
    QR.PrintIfEmpty := True; 

    QB := TQRBand.Create(Self); 
    QB.Parent := QR; 
    QB.BandType := rbTitle; 

    QL := TQRLabel.Create(Self); 
    QL.Parent := QB; 
    QL.Left := 10; 
    QL.Top := 10; 
    QL.AutoSize := True; 
    QL.Caption := 'This works'; 

    QR.Preview; 

    finally QR.Free; 
    end; 
end;