請教各位大大.. 我在FR2.5時,要如FR中秀出Chart,方式如下 procedure TForm1.frReport1BeforePrint(Memo: TStringList; View: TfrView); begin if View.Name = 'Chart1' then begin TfrChartView(View).AssignChart(Chart1); end; end; 升級到FR3.0後,請問各位大大,要如何改寫,原先的View: TfrView是由什麼方式替代了.

Create a chart in the Delphi code. Put the empty Picture object into a report and write the following TfrxReport.OnBeforePrint handler:

procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
begin
  if Sender.Name = 'Picture1' then
    TfrxPictureView(Sender).Picture.Assign(Chart1.TeeCreateMetafile(False, Rect(0, 0, Round(Sender.Width), Round(Sender.Height))));
end;

想不到過了這麼久終於有人回了覆了,goat 大大真是了不起,.. 本來已經放棄用FR3,改回用FR2.53,解決問題了... 看了goat大大的解法,讓我又有玩FR3的衝動. goat大大使用的方式是利用picture元件去秀出CHART,我以前也試過類以方法,但我是直接將CHART Save 成一個圖檔,再利用 picture 元件再列印時load出來,但是解析度慘到不行,所以就放棄了用picture的方式,想不到goat大大同樣也是利用picture元件但是出來的效果就非常棒,令人佩服. 先給分了.. 有空的話,goat大大可否發表一下利用FR chart的方法. 感謝!