在运行时创建TQReport元素

Question

在运行时创建TQReport元素。

好吧，至少尝试......

我不知道此报告中应显示哪些标题或数据。我得到一个代表数据行和列的TStrings TList。我在组的带打印事件中设置'Create'指令，为主数据行带设置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;