在关掉那个预览的报表后，让那个模态窗体也自动关掉，可有办法？？？(100分)

C

cp0574

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #1

if FrmCustInfoprint=nil then
FrmCustInfoprint:=TFrmCustInfoprint.create(application);
FrmCustInfoprint.ShowModal;
。。。。。。
procedure TFrmCustInfoprint.FormShow(Sender: TObject);
begin
QuickRep1.Preview;
end;
我想在关掉那个预览的报表后，让那个模态窗体也自动关掉，可有办法？？？
我如果不创建摸态窗体，在预览时却不能显示报表中的数据，这又是为何？

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #2

不让那个模态窗体显示出来

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #3

类似如下的方法来进行打印。
with TForm2.Create(Application)do
try
QuickRep1.PreviewModal;
finally
Free;
end;

 

D

del520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #4

formX.QuickRep1.Preview;
formx.free;

 

小

小雨哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-02

• #5

送分啊？

 

C

cp0574

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #6

To del520，小雨哥 你们说的方法我都试过了，不行的。yzhshi的办法是对的，谢了！

 

小

小雨哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-02

• #7

gz

 

C

cp0574

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #8

TO 小雨哥：你那个方法我也试过了啊，不过我的代码是
procedure TFrmCustInfoprint.QuickRep1AfterPreview(Sender: TObject);
begin
FrmCustInfoprint.close
end;
没执行成功，你是不是成功了？？？？[?]

 

小

小雨哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-02

• #9

代码 D2-D7 各版本执行通过。

 

C

cp0574

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-29

• #10

Frist.别生气[]。我当然不是没时间了，是我认为这两段代码效果应该一样的，
所以就没试。
Second.我刚自己试了下，还是没消掉，那个模态窗体还在，可能我真的有点笨[?]
Third.“直接赋值”是什么意思么？我刚毕业，很想成高手啊！

 

小

小雨哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-02

• #11

哦？我的测试完全通过，这是真的。虽然是个小问题，如果可能我想亲自作一番测试。
123@www,net，其他问题通信解决。