QuickRep Form反覆開啟問題? |
尚未結案
|
myboss
一般會員 發表:25 回覆:42 積分:13 註冊:2004-01-13 發送簡訊給我 |
|
myboss
一般會員 發表:25 回覆:42 積分:13 註冊:2004-01-13 發送簡訊給我 |
我在開啟FORM前有照書抄了一段程式
防止Form重複開啟,經trace程式碼發現
QuickRep Form關閉後FormExist = true;
而一般Form關閉後FormExist = false; bool Tdm::OpenForm(TForm * WForm)
{ int i;
bool FormExist ; if (WForm == NULL) return false;
FormExist = false;
for (i=0;i
|
myboss
一般會員 發表:25 回覆:42 積分:13 註冊:2004-01-13 發送簡訊給我 |
|
myboss
一般會員 發表:25 回覆:42 積分:13 註冊:2004-01-13 發送簡訊給我 |
|
andychang1690
資深會員 發表:20 回覆:694 積分:442 註冊:2003-03-14 發送簡訊給我 |
你好: 我使用QuickRep的方式請參考 TPrint3 *Print3; try { Print3=new TPrint3(Application); try { Print3->QuickRep1->Print(); // or ->Preview(); Print3->QuickRep1->Free(); delete Print3; } catch(...) { delete Print3; Application->MessageBox( "無法印出,請檢查印表機" , "列印錯誤" ,MB_OK); } } catch (...) { delete Print3; }Andy Chang
------
Andy Chang |
myboss
一般會員 發表:25 回覆:42 積分:13 註冊:2004-01-13 發送簡訊給我 |
多謝andychang1690兄的指教:
我在參考了您的用法後,加上自己原始碼
將程式改成這樣,問題因而解決。
推測是QuickRep Form關閉時delete不乾淨之故。
在此謝謝Andy Chang的協助! try
{
qpBuStockup =new TqpBuStockup(Application);
qpBuStockup->QuickRep1->Prepare();
qpBuStockup->QuickRep1->Preview();
delete qpBuStockup;
}
catch(Exception &E)
{
delete qpBuStockup;
Application->ShowException(&E);
} 發表人 - myboss 於 2004/07/09 09:30:17
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |