MDI中子窗体和该窗体对应的QuickRep1.Preview同时出现的问题 ( 积分: 110 )

B

baby2321

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-04

• #1

我的主程序是MDI模式 打印一张表
var
form:Tform1;//form1为quickrpt所在子窗体
begin
form:=Tform1.Create(application);//若去掉此句 则提示 path to source file: QuickRpt.pas的问题 所以这里没有去掉 但不去掉又出现后面的问题
form.QuickRep1.Preview;
end;
如此 不仅QuickRep1.Preview会出现 子窗体form1也会出现在主程序界面中 这里如何只出现QuickRep1.Preview 而不出现 子窗体form1 呢？其实 就只是想预览 但不用出现这个子窗体form1啊
谢谢大家

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-04

• #2

这是MDI窗口模式的问题，你先在无MDI窗口测试后再到MDI窗口试一试。
这可能和程序没有问题，是窗口MDI的关系搞错了。

 

B

baby2321

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-04

• #3

不知道我是否说清楚了 我需要在MDI下实现QuickRep1.Preview
现在的问题是 QuickRep1.Preview和 form1同时出现了

 

B

baby2321

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-05

• #4

这次 我直接在Delphi Menu File -> new ->在new的頁次，選擇Report
主窗体对应的 点击Click 代码
var
form:Tform1;//form1为新的quickrpt的name
begin
form:=Tform1.Create(application);
form.Preview;
form.Free;//若不加上次此句 则再次点击实现预览时 提示 这个组件已经存在 所以我这里FREE了一下
end;
但是 又有了新的问题 主窗体对应的 点击 键依然可点 若在不关闭 新的quickrpt对应的print preview的情况下再次点击执行Click 代码 则出现 没有加 form.Free 时的错误提示：这个组件已经存在

 

D

djziheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-07

• #5

在USE单元里调用 新的quickrpt对应的name
var
form:Tform1;//无须在定义

 

B

baby2321

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-07

• #6

多人接受答案了。