Object Treeview上右键点击QuickRep1选择preview显示正常

然后我写了一个button 调用preview 来显示报表
但却显示不了结果 连preview里的哪怕没有数据时应该显示的那张“白纸”都没有
代码如下：
[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
QuickRep1: TQuickRep;
preview: TQRStandardPreview;
printer: TQRPrinter;
begin
QuickRep1:=TQuickRep.Create(nil);
printer := TQRPrinter.Create(nil);
preview := TQRStandardPreview.CreatePreview(nil, printer);
try
preview.ShowModal;
finally
preview.Free;
printer.Free;
QuickRep1.Free;
end;
[/code]

再次谢谢大家

是不是因为我这里是Create(nil)？ 如果不是nil 应该怎么写呢？

編輯記錄

您好
請試試看TQuickRep.Create(Self);

------
Pillar Wang

QuickRep1:=TQuickRep.Create(self);

还是和原来一样 没有效果

我做了个实验 即将Object Treeview上右键点击QuickRep1选择preview显示正常情况下的 Quickrep1.dataset清除 
再右键点击QuickRep1选择preview 只显示一行数据
我将ADO连接设为FALSE 那么确实没有数据显示 可是PREVIEW里的
显示的是那张“白纸”

我用代码设置了对应的DATASET 可仍然是看不到数据 就连PREVIEW里的 应该显示的是那张“白纸”都看不到

如果是dataset的问题
try
//我加了以下三行

adotable1.Active:=true;
QuickRep1.DataSet:=adotable1;
QuickRep1.DataSet.Active:=true;

preview.ShowModal;

finally
....
执行后 还是看不到白纸
是不是ADO的connectionstring和 tablename
也要在这里声明？
或者是不是要在QuickRep1NeedData(Sender: TObject; var MoreData:
Boolean);事件中做一些处理？

感谢