怎样使QuickReport在Preview后自动关闭程序? ( 积分: 100 )

  • 主题发起人 主题发起人 hpgao
  • 开始时间 开始时间
H

hpgao

Unregistered / Unconfirmed
GUEST, unregistred user!
我要做一个单独的报表程序,那怎样使QuickReport在Preview后自动关闭程序呢?现在是在Preview后,必须再要关闭窗口才能退出程序。请各位指导。
 
我要做一个单独的报表程序,那怎样使QuickReport在Preview后自动关闭程序呢?现在是在Preview后,必须再要关闭窗口才能退出程序。请各位指导。
 
必须要关闭窗口才能退出程序????什么意思
 
quickrep.PreviewModal;
Application.Terminate;
 
不是我看错吧?Pipi.居然出现了。
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Close
end;
 
不是很明白樓主的意思
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if QuickRep1.Parent is Tform then
Tform(QuickRep1.Parent).Close;
end;
 
非常感谢各位的指导,尤其是Pipi的帮助,谢谢你Pipi!
 

Similar threads

S
回复
0
查看
831
SUNSTONE的Delphi笔记
S
S
回复
0
查看
790
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部