自動新增QRRichText |
|
尚未結案
|
|
bibo
一般會員   發表：10 回覆：9 積分：3 註冊：2002-06-14 發送簡訊給我 |
在列印Detail前，我想自動新增QRRichText，順便給值，
程式如下 procedure TqrfDliv.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var i,j:integer;
begin
i:=0;
QRRichText1.Lines[0]:=frmDeliver.table1.Fields[0].AsString;
//stringGrid有幾個col就新增幾個TQRRichText
for j:=1 to frmDeliver.sgItm.ColCount-1 do
with TQRRichText.Create(nil) do
begin
Height:=17;
AutoStretch:=True;
top:=4;
left:=120 10*i;
i:=i 1;
Parent:=self; //---->(1)
Lines[0]:=rmDeliver.table1.Fields[i].AsString;
end;
end; 若沒有寫(1)那行，則會出現Control '' has no parent window.
若加了(1)，則出現Access violation at address 004C9B3E in module 'Edliver.exe'.Read of address 00000080 故，想請問的是，該如何做才能自動新增後，就將值存入呢?
|
|
Justmade
版主  發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
Parent 應等於 Sender (TQRCustomBand)罷? 不過這不一定能解決你 AV 問題，先試試罷，若還不成請問是在那一行出 AV 的 ? 補充 :
還有 Owner 應是 Self 罷 ?
按你說的應是 QR 的內部碼不能因應你的變動出 AV 罷 另外你每個 Detail Band create 一堆 QRRichEdit 若每次 10 個有 100 記錄便 create 1000 個了
建議你在 report.beforeprint 建立 report 的 afterprint free 了他們 發表人 - Justmade 於 2003/06/18 14:06:49
|
|
bibo
一般會員 發表：10 回覆：9 積分：3 註冊：2002-06-14 發送簡訊給我 |
發表時間：2003-06-18 10:43:21
IP:211.22.xxx.xxx 未訂閱
系統時間：2024-05-04 7:10:20
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |