reportbuild載入模板文件后怎樣給新模板文件中的label的caption附值? |
缺席
|
redtea258259
一般會員 發表:1 回覆:1 積分:0 註冊:2004-04-11 發送簡訊給我 |
各位大大: 安安..
現有一問題請教, 我現在做了一個加載模板文件的reportbuild 報表..代碼如下:
procedure TForm1.Button1Click(Sender: TObject);
VAR
S: STRING;
begin
S:=ExtractFilePath(Application.ExeName) 'REPORT\' COMBOBOX1.Text '.RTM' ;
IF FILEEXISTS(S) THEN BEGIN
ppreport1.Template.FileName:=S;
ppreport1.Template.LoadFromFile;
ppreport1.PrintReport;
END ELSE BEGIN
MESSAGEBOX(SELF.HANDLE,'請確定選擇正確的格式','提示',MB_OK);
ABORT;
END;
end; 現我想讓報表preview時可以根據edit1.text的值來改變報表中的label1.caption為'delphi' or 'basic'.. 請問怎樣做呢?
|
hahalin
版主 發表:295 回覆:1698 積分:823 註冊:2002-04-14 發送簡訊給我 |
|
writeman
初階會員 發表:31 回覆:34 積分:28 註冊:2004-02-17 發送簡訊給我 |
引言: 各位大大: 安安.. 現有一問題請教, 我現在做了一個加載模板文件的reportbuild 報表..代碼如下: procedure TForm1.Button1Click(Sender: TObject); VAR S: STRING; begin S:=ExtractFilePath(Application.ExeName) 'REPORT\' COMBOBOX1.Text '.RTM' ; IF FILEEXISTS(S) THEN BEGIN ppreport1.Template.FileName:=S; ppreport1.Template.LoadFromFile; pplabel1.Caption:= combobox1.Text; ppreport1.PrintReport; END ELSE BEGIN MESSAGEBOX(SELF.HANDLE,'請確定選擇正確的格式','提示',MB_OK); ABORT; END; end; 現我想讓報表preview時可以根據edit1.text的值來改變報表中的label1.caption為'delphi' or 'basic'.. 請問怎樣做呢?發表人 - writeman 於 2004/11/14 01:44:18 |
bayman
一般會員 發表:30 回覆:35 積分:18 註冊:2007-04-24 發送簡訊給我 |
|
bruce
中階會員 發表:19 回覆:121 積分:83 註冊:2002-04-16 發送簡訊給我 |
各位大大: 安安..
現有一問題請教, 我現在做了一個加載模板文件的reportbuild 報表..代碼如下: procedure TForm1.Button1Click(Sender: TObject); VAR S: STRING; begin S:=ExtractFilePath(Application.ExeName) 'REPORT\' COMBOBOX1.Text '.RTM' ; IF FILEEXISTS(S) THEN BEGIN ppreport1.Template.FileName:=S; ppreport1.Template.LoadFromFile; // 在此寫入,不可寫在事件,經測試因為載入時並未觸發事件 ppLabel1.caption:=edit1.text; ppreport1.PrintReport; END ELSE BEGIN MESSAGEBOX(SELF.HANDLE,'請確定選擇正確的格式','提示',MB_OK); ABORT; END; end; 現我想讓報表preview時可以根據edit1.text的值來改變報表中的label1.caption為'delphi' or 'basic'.. 請問怎樣做呢? |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |