請問大家： 我有一QuickRep Form，於程式中開啟2次以上， 就會變成反白，程式因此當住，請問是怎麼回事？ 發表人 - taishyang 於 2004/07/06 13:59:37

我在開啟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;iFormCount;i ) if (Screen->Forms[i]->ClassType()==WForm->ClassType()) { FormExist = true; break; } if (FormExist == false) return FormExist; if(WForm->WindowState==wsMinimized) ShowWindow(WForm->Handle,SW_SHOWNORMAL); else ShowWindow(WForm->Handle,SW_SHOWNA); WForm->BringToFront(); WForm->SetFocus(); return true; } 我QuickRep Form開啟方式 if(dm->OpenForm(qpBuStockup)==false) { try { qpBuStockup =new TqpBuStockup(Application); qpBuStockup->QuickRep1->PreviewModal(); } catch(Exception &E) { delete qpBuStockup; Application->ShowException(&E); } 一般FORM開啟方式 if(dm->OpenForm(fmMater)==false) { try { fmMater =new TfmMater(Application); fmMater->Show(); } catch(Exception &E) { delete fmMater; Application->ShowException(&E); } 兩個FORM在FormClose時都有設Action = caFree; void __fastcall TqpBuStockup::FormClose(TObject *Sender, TCloseAction &Action) { Action = caFree; } 請問我有哪裡漏了嗎？該要如何解決呢？

上網站查詢PreviewModal，然後將程式改為Preview 但是第二次列印就指出現一空白Form，真不知是怎麼 回事，請問該如何解決？

因為問題未解決，所以在qpBuStockup->QuickRep1->Preview(); 之前加了qpBuStockup->QuickRep1->Prepare();結果發現 1 3 5 7 9可以顯現，2 4 6 8則是空白表單 ，請問這又是怎麼回事？ [/quote]

你好：
我使用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

多謝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