將qreport產生之 報表縮至最小,但不知如何恢復 ? thank's


enta@ms23.hinet.net

------
chang yung chin

不管那一種報表, 預覽出來一定要透過 Form 來執行, 如果 Form被縮小或隱藏, 只要 Form1.Show 就可以出來了, 不知是否你要的

感謝板主回覆,問題如下：

報表程式如下：

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

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

------
chang yung chin

假設 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 不吝指教,經測試已可以ok, Very thank's

------
chang yung chin

大哥的意思用一句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;

------
世界同步！