fastreport问题:如何把form1上的richedit1.text在fastreport上的rich1(TfrRichView)上打印出来?(20分)

D

delphiyesterday

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-01

• #1

这样是不行的:
procedure TksbjbForm.SpeedButton18Click(Sender: TObject);
var
t:tfrRichView;
begin
DataModule2.frreport1.LoadFromFile('c:/bjdxxcustom.frf');
t:=TfrRichView(DataModule2.frReport1.FindObject('rich1'));
t.memo.text:=richedit1.Text;
DataModule2.frReport1.ShowReport;
end;

帮下我呵.......

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-01

• #2

var b: TfrrichView;
begin

frreport1.LoadFromFile ('c:/readme.frf');
b := TfrrichView(frReport1.FindObject('rich1'));
b.RichEdit :=richedit1;
frreport1.Preview := dyyl.frPreview1;
frreport1.ShowReport;
dyyl.ShowModal;
end;
这样试试看？？

 

D

delphiyesterday

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-01

• #3

victor7780.126.com 是个骗人的网页.大家不要打开,因为不知有没有毒.
app2001的方法我试了,提示:Undeclared identifier:'tfrrichview'...
不知何因.

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-01

• #4

在主Form上放一个TfrRichObject.或者在uses中加入FR_Rich

 

D

delphiyesterday

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-01

• #5

在uses 加入FR_Rich后,app2001的方法可以.但是有一个问题还不知如何是好,就是本来在form1的richedit1里的字符有粗体的,字体有20的,,,但打印出来却全是正一般的字体(10),而且粗体效果也没有,,,,如何才能保持Richedit里的格式转到fastreport里也不变呢?我用richedit的最终目的就在此呵.........app2001,多谢你先....
各位,帮下我吧.

 

D

delphiyesterday

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-01

• #6

up......first.

 

D

delphiyesterday

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-01

• #7

这样是可以按格式打印出去,但是打印时,form1的richedit1神奇的不见了,怪.
procedure TksbjbForm.SpeedButton18Click(Sender: TObject);
var
t:tfrrichView;
begin
DataModule2.frreport1.LoadFromFile('c:/bjdxxcustom.frf');
t:=TfrRichView(DataModule2.frReport1.FindObject('rich1'));
t.RichEdit:=richedit1;
DataModule2.frReport1.ShowReport;
end;

 

D

delphiyesterday

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-01

• #8

up.....second...

 

D

delphiyesterday

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-01

• #9

up.....third...
如果这个解决不了,能不能帮下我:
如何把richedit1的内容格式不变的复制到richedit2里?

 

D

delphiyesterday

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-01

• #10

up....forth...

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-01

• #11

uses Clipbrd;
richedit1.CopyToClipboard ;
richedit2.PasteFromClipboard;

 

D

delphiyesterday

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-01

• #12

接受答案了.