请教一下，fastreport上图片的问题！(20分)

W

winsock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #1

大家好，fastreport上的标题栏动态显示图片用语句怎么实现呢？
procedure TForm1.Button1Click(Sender: TObject);
begin
frReport1.FindObject('picture1').picture:=mainform.DBImage1.Picture;//我这样写
是通过指定picture的图片为主窗体的一张图片。此图片是保存在数据库。
我知道我这样写肯定不对。因为没有picture属性。可要如何写！
frReport1.ShowReport;
//对了，因为保存在数据库，我不能用loadfromfile('')这样的方法！

 

薛

薛獅

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #2

(frReport1.Pages[0].FindObject('picture1') as TfrPictureView).Picture:=
mainform.DBImage1.Picture;
很简单，但20分不够！[^]

 

W

winsock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #3

你好呀，好象不行呀。提示：
cannot assign to read-only property

 

天

天与地

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #4

procedure TForm1.frReport5BeforePrint(Memo: TStringList;
View: TfrView);
begin
if View.Name = 'Picture3' then
TfrPictureView(View).Picture.Assign(Form1.Image1.Picture);

end;

 

W

winsock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #5

谢谢大家了，如果是rmreport这套控件呢？向上面这样的代码。就不成功了！那该如何写呢？

 

天

天与地

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #6

你的前提不是FastReprot吗？
如果你把这段代码放到Vc里面就更不灵了，哈哈哈。

 

W

winsock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #7

不是的，我的意思是这样的
这段代码可以，因为我特殊需要我也要用到rmreport这一套控件。
而rmreport这套控件基本上是继承fastreport来的。语句基本都一样，
如：rmreport1.FindObject('memo1').Memo.Text=''
frReport1.FindObject('memo1').Memo.Text=''
都可以这样写的，通用的。问题就是上面的那句换成rmreport就不行了！

 

W

winsock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #8

多人接受答案了。