procedure TForm1.frReport1BeforePrint(Memo: TStringList;
View: TfrView);
Var AFormat :Word;AData:Cardinal;Apalette:HPALETTE;
begin
If Memo[0]<>'' then
begin
If (Memo[0] = '[Picture]') and (View is TfrPictureView) then
begin
Image1.Picture.SaveToClipboardFormat(AFormat,AData,Apalette);
(View as TfrPictureView).Picture.LoadFromClipboardFormat(AFormat,AData,Apalette);
end;
end;
end;
上面的过程是在TfrReport的OnBeforePrint事件里面，你有.frf文件里面放一个TfrPictureView控制，然后在TfrPictureVies的Memo里面写上[Picture]就OK了
