模态窗体中动态创建打印预览窗体出错！

[yangtsehua]

unit uSelectPrint; //用于用户选择需打印的字段

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, DBClient;

type
TfrmSelectPrint = class(TForm)
GroupBox1: TGroupBox;
checkb_khjg: TCheckBox;
checkb_hm: TCheckBox;
checkb_zh: TCheckBox;
checkb_xdmm: TCheckBox;
checkb_sfzh: TCheckBox;
checkb_dzpzmm: TCheckBox;
checkb_tkmm: TCheckBox;
checkb_jrkmm: TCheckBox;
checkb_myemail: TCheckBox;
checkb_bgxhm: TCheckBox;
checkb_jgurl: TCheckBox;
checkb_khsj: TCheckBox;
checkb_yyyxm: TCheckBox;
checkb_yyydh: TCheckBox;
checkb_yyysj: TCheckBox;
checkb_other1: TCheckBox;
checkb_yzty: TCheckBox;
checkb_bz: TCheckBox;
btn_next: TBitBtn;
BitBtn1: TBitBtn;
ClientDataSet1: TClientDataSet;
procedure BitBtn1Click(Sender: TObject);
procedure btn_nextClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmSelectPrint: TfrmSelectPrint;

implementation

uses uPrint;

{$R *.dfm}

procedure TfrmSelectPrint.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TfrmSelectPrint.btn_nextClick(Sender: TObject);
begin
frmprint:=Tfrmprint.Create(nil);
try
frmprint.QuickRep1.PreviewModal; //调用的时候出错
finally
frmprint.Free;
end;
self.ModalResult:=MROK;
close;
end;

end.

出错： Access Violation at address 004dec92 in module 'account.exe',Read of address 0000000.
好像是quickrep1没有创建，不知道怎么做？谢谢。

[superTY]

帮你up

[10975037]

什么错误？

[夜o猫]

我用时也是出错，只好采用了静态装载的方式！
Project->Optiopn->Forms，然后把你的frmprint弄到左边！
直接frmprint.QuickRep1.PreviewModal;调用就可以了！

[qingenerp]

procedure TfrmSelectPrint.btn_nextClick(Sender: TObject);
begin
frmprint:=Tfrmprint.Create(nil);
try
frmprint.QuickRep1.PreviewModal; //调用的时候出错
finally
frmprint.Free;
frmprint:=nil;
end;

end;