全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1992
推到 Plurk!
推到 Facebook!

qreport 報表縮至最小如何恢復

答題得分者是:TWY
enta
一般會員


發表:33
回覆:43
積分:15
註冊:2003-09-29

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-09-29 16:40:00 IP:113.61.xxx.xxx 訂閱
將qreport產生之 報表縮至最小,但不知如何恢復 ? thank's


enta@ms23.hinet.net
------
chang yung chin
P.D.
版主


發表:571
回覆:3880
積分:3666
註冊:2006-10-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-10-02 16:59:45 IP:61.67.xxx.xxx 未訂閱
不管那一種報表, 預覽出來一定要透過 Form 來執行, 如果 Form被縮小或隱藏, 只要 Form1.Show 就可以出來了, 不知是否你要的
enta
一般會員


發表:33
回覆:43
積分:15
註冊:2003-09-29

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-10-05 10:07:10 IP:113.61.xxx.xxx 訂閱
感謝板主回覆,問題如下:

報表程式如下:

Application.CreateForm(TPrnForm71, PrnForm71);
if preview then
PrnForm71.quickrep1.Preview
else
PrnForm71.quickrep1.Print;
PrnForm71.close;

當產生報表時,按下視窗縮至最小時,報表視窗縮小至左下角,看不到恢復小視窗,因此無法再選擇,往下動作無法再繼續了.
如何是好 ?
------
chang yung chin
TWY
高階會員


發表:0
回覆:132
積分:151
註冊:2009-09-02

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-10-05 17:24:26 IP:211.21.xxx.xxx 訂閱
假設 Form1 是主 Form(呼叫者),Form2 是 QuickReport 報表所在,將 Form2 縮小到左下角後,若你點選了 Form1 則原本在左下角還原那個縮小框框會被檔在後面看不到了。(這現象不知道算不算QuickReport 的 Bug?)

不確定你的問題是否是因為被擋住的關係(並非不見)。若是的話請參考下面方式來呼叫,我都是這麼來避免這樣的問題的。
[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
pFormHandle : Pointer;
begin
Form2 := TForm2.Create(Self);
try
pFormHandle := DisableTaskWindows(Form2.Handle);
Form2.QuickRep1.Preview;
finally
EnableTaskWindows(pFormHandle);
Form2.Free;
end;
end;

[/code]


編輯記錄
TWY 重新編輯於 2009-10-05 17:32:35, 註解 無‧
enta
一般會員


發表:33
回覆:43
積分:15
註冊:2003-09-29

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-10-05 20:29:02 IP:113.61.xxx.xxx 訂閱
感謝  twy 不吝指教,經測試已可以ok, Very thank's

------
chang yung chin
kenwood
一般會員


發表:1
回覆:4
積分:1
註冊:2010-06-13

發送簡訊給我
#6 引用回覆 回覆 發表時間:2010-06-13 02:32:10 IP:58.253.xxx.xxx 訂閱
大哥的意思用一句OK:

QuickRep1.Previewmodal

但这样总给人一总别扭的感觉!

我一般用PREVIEW
现后在基类中关闭时关闭报表或带出

RvHandle:=findwindow(nil,pchar(mtitlcaption)) --mtitlcaption就是QUICKREPOT.REPORTITLE=mtitlcaption
result:=(RvHandle>0);
if RvHandle<>0 then
begin
if not isclose then
begin
setactivewindow(RvHandle);
showwindow(RvHandle,SW_RESTORE);
SetAdminPerssion;
abort;
end else
begin
SendMessage(RvHandle, WM_CLOSE, 0, 0);
end;
end;
end;
------
世界同步!
系統時間:2017-10-19 17:14:17
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!