一个关于报表的问题(50分)

  • 主题发起人 主题发起人 PoeChan
  • 开始时间 开始时间
P

PoeChan

Unregistered / Unconfirmed
GUEST, unregistred user!
请问各位大虾:一个简单问题
窗体上与两个按钮Button1,button2 ,初始状态Button2.Enabled:=false,现在需要点击
Button1预览并打印报表,只有当用户打印后,Button2才会 Enabled:=true,
请问如何实现?谢谢!

 
QuickRep.AfterPrint
 
我试过了,不行!在QuickRep.afterprint 加入 Button2.Enabled:=true;
执行后出现 内存访问错误,
在Win98 下为非法操作
 
还是不行, 执行后出现 内存访问错误,
在Win98 下为非法操作!各位老大快帮忙呀!
 
form1 unit1
quickreport1 unit2
在form1内
implementation
uses Unit2;
...
public
judge:boolean;
...
在button1内
judge:=false;
quickreport1.preview;
button2.enabled:=judge;
在quickreport1内
implementation
uses Unit1;
....
procedure TQuickReport1.QuickReport1AfterPrint(Sender: TObject);
begin
form1.judge:=true;
end;
 
在button1的代码中的最后加上,button2.enabled:=true;
 
把QuickRep目录下的QrPrev.pas,.dfm,拷到你的程序目录中,
在QrPrev中uses主窗体,在QrPrev的PrintButtom的OnClick中
加入form1.button2.enabled:=True;
 
接受答案了.
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
900
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部