FastReport（二）
******在Delphi程序中访问报表对象
最基本的方法就是frxReport1.FindObject。然后把返回的对象强制转换成它的类型，当然，在报表中必须真的有这么个东东。如改变一个Tfrxmemoview的内容，可以这样写TfrxMemoView(frxReport1.FindObject('memo1')).Text:='jade';
还可以用TfrxReportPage的FindBand方法，这个方法的参数是Band类，如报表抬头就可以直接使用这个方法，因为抬头一个页中只有一个，如果有多个同样的类。则不能使用这种方法。如果要使用TfrxreportPage，一般可以用这样的代码
TfrxReportPage(frxReport1.Pages[0])。当然，如果你的这个页是对话框型的，则不行了。但一般都是报表型的。
******使用上下标
在Fastreport中使用上下标是很简单的，只要用一个Tfrxmemoview，把AllowHTMLTags属性设为真，就可以使用网页标签来实现上下标了，如12<sup>2</sup>与24<sub>3</sub>。就分别是2为上标，3为下标。
******打印页码
打印页码是很简单的，只要加入一些常量即可，如打印第几页共几页就可以使用
第[Page#]页 共[TotalPages#]页
这里要注意的一点是如果想正确显示总页数，必须选中二次报表。
******动态建立变量及变量组
建立变量组名
frxreport1.Variables.Add.Name:=' '+变量组名;
建立变量名
frxreport1.Variables.AddVariable('组名，如果为不存的组或空，则为默认组，这里不需要空格',变量名,变量初始值);
例如要建立变量组Yuan,二个变量Yuan1,Yuan2，则为
frxreport1.Variables.Add.Name:=' Yuan';注意前面是空格
frxreport1.Variables.AddVariable('Yuan',Yuan1,初始值)
frxreport1.Variables.AddVariable('Yuan',Yuan2,初始值)
******共用TFrxreport及TfrxDBDataSet
一个程序中，不管多么大的程序，只要打印或预览时是模式的，则完全可以共用一个TFrxreport变量及几个TfrxDBDataSet。只不过，要注意完成一个报表程序的步骤，主要是下面几步
1)清除报表，得到一个全新的报表内容。
Frxreport1.clear。
2)设置要使用的TfrxDBDataSet的别名，如果不需要可以省略这一步，但一般最好不同的报表用不同的别名。
注意这一步要在加载报表文件之前，因为一般设计报表文件时已经包含了别名信息。
frxDBDataSet1.UserName:=别名;
3)加载报表或动态建立一个TfrxReportPage。
Frxreport1.LoadFromFile(报表文件的完整文件名);
4)关联TfrxDBDataSet与TDataset，并设置要使用哪些TfrxDBDataSet。
Frxreport1.DataSets.Clear;//先清除原来的数据集
frxDBDataSet1.DataSet:=dataset1;//关联Fastreport的组件与TDataset数据集。
Frxreport1.DataSets.Add(frxDBDataSet1);//加载关联好的TfrxDBDataSet到报表中。
经过这几步后，就可以像单独使用一个Tfrxreport一样使用共用的报表组件了。
******加入自定义函数
Fastreport可以自己加入需要的函数，来实现特定的功能。过程就是：
1)添加函数到报表中。
frxreport1.AddFunction('完整的函数声明');
如有一个自定义函数，为GetName(Old:String):String;这个函数通过数据集的一个字段，得到另一个返回值。
则语句为：frxreport1.AddFunction('Function GetName(Old:String):String;');
2)脚本中使用函数。
在脚本中或报表中使用自定义函数，就像使用其它Fastreport内置函数一样。
3)程序中处理函数。
使用函数是通过frxreport1的OnUserFunction函数来实现的。
OnUserFunction的声明如下：Function(const MethodName: String;var Params: Variant): Variant;
比如上面的函数，首先要有一个函数，这个函数是GetName的实现部分。如有一个在程序中实现的函数。
function RealGetName(Old:String):String;这个函数名是无所谓的，也可以是GetName。
在OnUserFunction的事件处理中有如下代码即可完成自定义函数在报表中的使用。
if CompareText(MethodName,'GetName')=0 then Result:=RealGetName(VarToStr(Params[0]));
我一般都是使用CompareText来比较函数名，因为我发现二个版本的Fastreport，一个是MethodName全部自动变成了小写，一个是全部自动变成了大写，所以干脆用CompareText来比较，肯定不会出错。
如果有多个参数，则依次传递Params[0],Params[1]即可，要保持顺序一致。
这里要注意一点，如果参数为指针，则不能直接使用Pointer(Integer(Params[0]))。因为实际传递过来的是指针的整数值，可以使用Pointer(StrToInt(VarToStr(Params[0])))。
******使用脚本，脚本中使用变量
很多时候，我们希望把对报表的控制放到报表的脚本中，通常我这样做有二个原因：
1)能够根据字段内容的变化而使用不同的设置，因为如果想在程序中实现这样功能，就不得不用自定义函数，函数的实现要放到程序中，函数可能需要传递很多参数，效率低下。
2)把不同报表的控制放到脚本中，可以实现报表的模块化，程序只是简单的设置数据集的关系，并加载硬盘上的报表文件，不同报表的不同实现方式，显示方式，均放到报表文件中，程序简洁，易维护，易升级。
当然，这样的缺点就是程序中加载报表时的数据集别名必须与设计报表时的别名一致。
脚本的使用与通常程序的使用并没有太多的区别，就是像正常的程序那样引用控件的名称即可。
但注意对变量的使用，需要把变量名或表达式用<>括起来。
******在脚本中根据字段名改变Tfrxmemoview的内容
假设有数据表“用户”，字段ID为用户标识，Name为用户名，打印时要求，如果用户名为空，则打印“无用户名”，否则打印出“用户名：实际的用户”，则可以在ID的Tfrxmemoview控件的OnAfterData事件中写如下脚本。
if <frxDBDataSet1."Name">='' then
Memo2.Text:='无用户名'
else
Memo2.Text:='用户名：[frxDBDataSet1."Name"]'
Memo2是放置用户名称数据的Tfrxmemoview控件。
这里注意，要在脚本中访问变量需要把变量用<>包括起来。
******实现连续打印
很多人认为Fr不能实现连续打印，以为只能通过自己写函数调用打印函数来实现连续打印，实际上，Fr可以轻易的实现连续打印，同时，实现时又是非常简单，你甚至可以在你的程序的打印设置中简单的让客户选择是否连续打印，其它都可以保持不变。
function PelsTomm(Pels:Extended):Extended;
begin
Result:=Pels/Screen.PixelsPerInch*25.4;
end;
procedure PrintSerial(Frx:TFrxReport;SequencePage:Byte=0);
var
P:TfrxReportPage;
R,R1:Extended;
begin
{必须是二遍报表，否则无法计算总页数。
下面的方法只适用于没有页脚的情况，因为如果有页脚的话
FreeSpace就始终为0了。可以用报表脚来代替。
因为是连续打印，也可以看作只有一页，报表脚也就相当于页脚了}
if not Frx.Engine.DoublePass then Exit;
//SequencePage指要连续打印的页面，普通报表就是0
P:=TfrxReportPage(Frx.Pages[SequencePage]);
R1:=P.TopMargin+P.BottomMargin;
while Frx.PrepareReport do
begin
if (Frx.Engine.TotalPages<=1) then Break;
R:=Pelstomm(Frx.Engine.TotalPages*Frx.Engine.PageHeight-
Frx.Engine.FreeSpace)+R1;
P:=TfrxReportPage(Frx.Pages[SequencePage]);
P.PaperHeight:=R;
end;
{必须用上面的循环代码来得到准确的空白区域
不能用通过计算总页数减去各页的页边距的方法来获得空白区域
因为如果碰到一条记录过宽的情况导致换页，就不准确了。}
R:=Pelstomm(Frx.Engine.TotalPages*Frx.Engine.PageHeight-
Frx.Engine.FreeSpace)+R1;
P:=TfrxReportPage(Frx.Pages[SequencePage]);
P.PaperHeight:=R;
end;
在预览或打印前先调用PrintSerial即可。
问题描述，正如rainee所说：程序设计时Memo中的中文显示正常，预览也正常。程序运行时Memo中的中文只能显示前几个汉字，有时甚至不能显示。再次打开程序源码，会发现Memo中的中文没保存下来或保存不完全。如果用Memo显示字段或变量的值，其中的中文显示正常。
除 了文章提到的方法外，FastReport4.7.91的TfrxReport有StoreInDFM属性，将其设为false, 在运行时动态加载报表文件，语句如下frxrprtPrintCheck.LoadFromFile('a.fr3');然后预览打印都没有问题。
担心原文作者文章地址有变动，特转载如下：
FastReport3.15以上版本（包括最新的3.23.9）都存在一个问题：程序设计时Memo中的中文显示正常，预览也正常。程序运行时 Memo中的中文只能显示前几个汉字，有时甚至不能显示。再次打开程序源码，会发现Memo中的中文没保存下来或保存不完全。如果用Memo显示字段或变量的值，其中的中文显示正常。
网上能找到的解决方法主要有两种：
一、在FastReport中添加变量，设置Memo的内容为变量的值，在报表的GetValue事件中给变量赋值。如果你的报表中有许多Memo的值相同，用这种方法最方便。
procedure TForm1.frxReport1GetValue(VarName: String; var Value: Variant);
begin
if CompareText(VarName, 'MyVar1') = 0 then
Value := 'Hello.';
end
二、设计时Memo内容为空，在Show报表前给Memo控件赋值。
procedure SetMemoData(aReport: TfrxReport; aMemoName, aString: string);
var
mv: TfrxMemoView;
begin
mv := aReport.FindObject(aMemoName) as TfrxMemoView;
if mv<>nil then
mv.Text := aString;
end;
这里要讲的第三种方法是我最近发现的：
三、用FastReprot Studio3.20设计报表。
FastReprot Studio3.20是独立的可直接联接数据库做报表的程序，用它做报表和在Delphi中操作完全一样，它的Memo中可设置中文内容，并且能正常显示，保存后也不会丢失。然后在Delphi中调用保存好的报表，这样Memo中的中文显示就没问题了。
/////////////////////////////
这是在CSDN搜索到的，供参考
Fastreport3.x对中文的支持有问题.例如:frxMemoView中如果填了中文,那么StoreInDFM设时就会有问题.
中文显示不出来.
网上之前也流行了一些解决办法,如:用变量保存中文,运行时再赋值,又或者用另外的独立的设计器来设计报
表.但我觉得这些办法都不好,因为它改变了程序员的使用习惯.
其实问题出Fastreport3.x把widestrings属性持久化到DFM时.因为它会先把text转换成Utf8格式再保存.但
delphi本身对Utf8的支持又不太好,(我发现两个以上的Utf8格式字符串相加有时会出错),所以我把widestrings
这个类持久化函数改了一下去掉了Utf8的转换部份,就把问题切底解决了.
frxUnicodeUtils单元下:
把TWideStrings类的ReadDataW和WriteDataW函数中关于Utf8的转换去掉
具体是：
ReadDataW:
//Add(Utf8Decode(Reader.ReadString));
Add(Reader.ReadString);
WriteDataW:
//Writer.WriteString(Utf8Encode(Get(I)));
Writer.WriteString(Get(I));
TfrxDBDataset TfrxUserDataset
数据存取元件。FastReport 使用这些元件读取及参考数据库的字段，这两个元件都源于 “TfrxDataSet” 并继承其大部分的功能。
TfrxUserDataSet 元件允许构建未连接到数据库的报表，而由其它来源接收数(据如:数列、文件等)。在此同时，程序员仅需提供浏览此数据集的功能，资料接收并非由此元件执行，而是用其它的方法（例如，经由“TfrxReport.OnGetValue”事件）。
TfrxUserDataSet 元件有下列的属性：
property RecNo: Integer readonly;目前记录编号，首笔的记录编号是“0”
property Enabled: Boolean default True;定义此元件是否可在designer 里面使用。
property RangeBegin: TfrxRangeBegin default rbFirst;数据导航(navigation)的起点。下列的值可以使用：
rbFirst – 从数据的第一笔记录开始。rbCurrent – 从当前的记录开始
property RangeEnd: TfrxRangeEnd default reLast;数据导航(navigation)的起点。下列的值可以使用：
reLast – 直到数据结束。ReCurrent – 直到目前的记录。reCount – 依“RangeEndCount” 属性而定。
property RangeEndCount: Integer;数据集中的数据个数，此功能只在“RangeEnd”属性等于reCount 有效。
property UserName: String;符号名称。在报表设计环境(Designer)下，将被显示于DataSet 的下方。
property OnCheckEOF: TfrxCheckEOFEvent;
TfrxCheckEOFEvent = procedure(Sender: TObject; var Eof: Boolean)of object; 此事件在数据集的尾端时，Eof 参数将返回True。
property OnFirst: TNotifyEvent;数据集移至第一笔的位置时，会触发此事件。
property OnNext: TNotifyEvent;数据集移至下一笔的位置时，会触发此事件。
property OnPrior: TNotifyEvent;数据集移至上一笔的位置时，会触发此事件。
TfrxDBDataSet 元件用来连接以TDataSet, TTable 及TQuery 为基类的数据库元件，有关数据的导航及字段的参考都是自动的，程序员不需特殊的设定。除上述属性外，该元件有下列的属性：
property CloseDataSource: Boolean default False;报表创建完成后，关闭数据库。
property OpenDataSource: Boolean default True;在报表创建之前打开数据库。
property FieldAliases: TStrings;数据集字段的符号名称(别名)。
property DataSet: TDataSet; property DataSource:
TDataSource;连结至TDataSet 或TDataSource 类型的元件。
property OnClose: TNotifyEvent;当关闭数据集时触发此事件。
property OnOpen: TNotifyEvent;当打开数据集时触发此事件
TfrxDesigner
TfrxDesigner 元件是报表设计器，当使用此元件，你的工程文件就可以使用报表设计器，此元件它只包含一些报表设计器的设定，当加入”frxDesign” 单元到uses 清单中，就表明与报表设计器连接上了。此元件包含下列的属性：
property CloseQuery: Boolean default True;定义结束设计报表是否询问储存报表之用。
property OpenDir: String;打开报表的预置数据目录property SaveDir: String;储存报表的预置数据目录。
property Restrictions: TfrxDesignerRestrictions;报表设计环境下，限制不同的报表操作标识(flag)，此标识包含单一或混合数据值：
drDontInsertObject – 禁止插入物件drDontDeletePage – 禁止刪除页面drDontCreatePage – 禁止建立新的页面
drDontChangePageOptions – 禁止修改页面属性drDontCreateReport – 禁止建立新报表
drDontLoadReport – 禁止载入报表drDontSaveReport – 禁止储存报表
drDontPreviewReport – 禁止预览报表drDontEditVariables – 禁止编辑变量
drDontChangeReportOptions – 禁止修改报表属性
property OnLoadReport: TfrxLoadReportEvent;
TfrxLoadReportEvent = function(Report: TfrxReport): Boolean of
object;
此事件发生在载入报表之时。利用此事件，你可以从数据库载入报表。
property OnSaveReport: TfrxSaveReportEvent;
TfrxSaveReportEvent = function(Report: TfrxReport;SaveAs:Boolean): Boolean of object;
此事件发生在储存报表之时。利用此事件，你可以将报表储存于数据库中。
property OnShow: TNotifyEvent;此事件发生在启动报表设计环境时。
TfrxPreview
此元件专供建立自定义报表合预览窗口使用。procedure AddPage;加入空白页面到报表末端。
procedure DeletePage;删除当前页。procedure Print;打印报表。procedure LoadFromFile;显示文件载入窗口。procedure LoadFromFile(FileName: String);载入指定的文件。procedure SaveToFile;显示文件储存窗口。procedure SaveToFile(FileName: String);储存文件到指定的文件名称procedure Edit;载入当前页至设计模式供编辑使用。
procedure Export(Filter: TfrxCustomExportFilter);使用指定的导出过滤器导出报表。
procedure First;第一页。procedure Next;下一页。procedure Prior;上一页procedure Last;最后一页。
procedure PageSetupDlg;显示页面设定窗口。procedure Find;显示文字搜寻窗口。procedure FindNext;继续找下一个。procedure Cancel;取消创建报表。procedure Clear;清除报表。
你可以使用下列属性：
property PageCount: Integer readonly;报表页数。
property PageNo: Integer;目前报表页码(起始值为1)。要移至其它页面，指定此属性的值即可。
property Tool: TfrxPreviewTool;选取工具。property Zoom: Extended;显示比例，“1” 代表100% 。
property ZoomMode: TfrxZoomMode;显示模式，可以的显示模式如下：zmDefault – 预置值，显示比例根据“Zoom” 属性而定zmWholePage – 整页模式zmPageWidth – 与页面宽度相同
zmManyPages – 一屏显示多页property OutlineVisible: Boolean;是否显示报表大纲(树状结构)。
property OnPageChanged: TfrxPageChangedEvent;目前页面要改变时，此事件将被触发。
TfrxBarcodeObject TfrxOLEObject TfrxChartObjectTfrxRichObject
TfrxCrossObject TfrxCheckBoxObject TfrxGradientObject
可在报表内部使用的物件，这些元件自己没做任何事情，它们会自动将元件的单元加入uses 清单，加入你打算打开一份报表，此功能会自动被加入报表，未包括此物件至工程文件的话，打开报表时将会发生错误。
TfrxDialogContols
附加项(add-in) 物件的集合，可用于报表内的对话窗口，它包含下列元件：button,edit box, list box 等。此元件自己不会执行任何事，加入此元件“frxDCtrl”将会自动加入“Uses”清单。
TfrxBDEComponents
BDE 数据库元件，数据库界面采用BDE(Borland Database Engine)时，工程文件必须加入此元件。
TfrxADOComponents
ADO 数据库元件，数据库连接采用ADO(Advance Data Object)时，工程文件必须加入此元件。
TfrxIBXComponents
Interbase 数据库元件，数据库采用IBX 连接Interbase 后台数据库时，工程文件必须加入此元件。上述数据库元件，可被使用在报表的对话窗口上，它包括下列的元件： “Database”,“Table” 及“Query” 。这些元件本身并不做任何事；它们只会将元件隶属的单元自动加入uses 清单中。
Working with TfrxReport component
Loading and saving a report 存取报表
报表定义表格与工程文件的表格储存在同一个文件(.DFM)，在大部分的情況下，并不需要额外的操作步骤，因此载入报表便相当简单。假如你要将报表储存在文件或数据库的BLOB 字段，你必须使用“TfrxReport”提供的方法来载入及储存报表。
function LoadFromFile(const FileName: String;
ExceptionIfNotFound: Boolean = False): Boolean;
载入指定的报表，假如第二个参数的值等于”True ” 且指定的文件不存在，然后它会产生一个例外。假如文件载入成功，它返回“True”。
procedure LoadFromStream(Stream: TStream);从数据流(stream)载入报表。
procedure SaveToFile(const FileName: String);储存报表至指定的文件名。
procedure SaveToStream(Stream: TStream);储存报表至数据流(stream) 。
报表预置的后缀名称为“FR3”。范例：
frxReport1.LoadFromFile('c:1.fr3');
frxReport1.SaveToFile('c:2.fr3');
Designing a report 设计报表
通过“TfrxReport.DesignReport”方法调用报表设计器(reportdesigner)，要具有设计报表的功能，你必须在工程文件中加入“TfrxDesigner”元件，或在uses 加入“frxDesgn”单元。范例：frxReport1.DesignReport;
Running a report 执行报表
应用下列两个“TfrxReport”元件的方法启动报表：procedure ShowReport(ClearLastReport: Boolean = True);
启动报表并显示结果在浏览窗口。假如“ClearLastReport”参数等于“False”，然后报表将会清前一份报表的末端，否则前一份报表的内容将会被清除ど柚。function PrepareReport(ClearLastReport: Boolean = True):Boolean;
启动报表，但不开启预览窗口，参数用法同“ShowReport”方法，假如报表建立成功，它返回“True”。在大部分的情況下，采用第一种方法比较方便，当报表建立的过程中，它会立刻显示预览窗口。当我们要把报表加入上一份报表的后面时，“ClearLastReport”参
数是非常方便的技巧在批次报表打印时特别有效)。范例：frxReport1.ShowReport;
Previewing a report 预览报表
在报表预览窗口显示报表有两种方式：不管是调用“TfrxReport.ShowReport”方法(前面已提及)或使用“TfrxReport.ShowPreparedReport”方法。在第二种状况，报表创建的过程不会执行，但是报表的结果会显示于屏幕。这个意思是说，你应该使用“PrepareReport”方法创建报表或载入先前已经建立的报表。范例：
if frxReport1.PrepareReport then
frxReport1.ShowPreparedReport;
在这个案例中，报表创建完成在先，然后显示报表于浏览窗口。创建大型的报表可能耗费许多时间，那也是为什么使用“ShowReport”方法会比“PrepareReport/ShowPreparedReport” 来的好的原因，我们指定“TfrxReport.PreviewOptions” 属性，指定预览的参数。
Printing a report 打印报表
在大部份的情況，你会从预览窗口打印报表。要手动打印报表，你应该使用“TfrxReport.Print”方法，例如：frxReport1.Print;
在此同时，你可以设定打印对话窗口的参数。你可以从“TfrxReport.PrintOptions”属性指定打印的预置值及取消显示打印窗口。
Loading and saving a finished report 存取已完成的报表
它可以从预览窗口执行，这也可以手动的用“TfrxReport.PreviewPages”方法执行：
function LoadFromFile(const FileName: String;
ExceptionIfNotFound: Boolean = False): Boolean;
procedure SaveToFile(const FileName: String);
procedure LoadFromStream(Stream: TStream);
procedure SaveToStream(Stream: TStream);指定参数与TfrxReport 对应的方法类似，报表文件后缀名必须是”FP3” 。例：
frxReport1.PreviewPages.LoadFromFile('c:1.fp3');
frxReport1.ShowPreparedReport;注：当已完成报表载入后，预览报表必须通过 “ShowPreparedReport”方法来执行。
Exporting a report 导出报表
它可从预览窗口执行，此项功能也可以用“TfrxReport.Export”方法来执行，在此方法的参数中，你必须指定要使用的导出过滤元件：如：frxReport1.Export(frxHTMLExport1);导出过滤元件必须是可用的（你必须将它放入工程文件的表单上）且设定正确。
Creating a custom preview window 建立自定义预览窗口
FastReport 显示报表于标准的预览窗口。假如为了某种理由它无法满足你，你可以使用自定义的预览窗口。为此，FastReport 的“TfrxPreview” 元件于是诞生了，要显示报表这个元件必须连接到“TfrxReport.Preview”属性。
Building a composite report (batch printing) 建立复合报表(批量打引)
在某些情况下，我们必须一次打印数份报表，或封装及实现多份报表于同一个预览窗口。要执行这项工作，在FastReport 中有多个工具，允许建立一份新的报表，置于另一份已存在的报表末端，«TfrxReport.PrepareReport»方法有此«ClearLastReport», «True»，此参数定义是否清除前一份已建立的报表。下列的程序码示范如何从两个报表定义文件，批次建立一份报表：
frxReport1.LoadFromFile('1.fr3');
frxReport1.PrepareReport;
frxReport1.LoadFromFile('2.fr3');
frxReport1.PrepareReport(False);
frxReport1.ShowPreparedReport;
我们载入第一个报表并在后台处理报表(不显示)，然后我们载入第二份报表到同一«TfrxReport»物件，并置参数 «ClearLastReport» 的值为假(False)建立报表。此功能允许第二份报表的结果接在第一份报表的后面。最后，我们将两份报表显示在同一个预览窗口中。
Numbering of pages in a composite report 复合报表中的页数
你可以使用 «Page», «Page#», «TotalPages» 及 «TotalPages#» 系统变量显示页码或总页数。在复合式报表，这些变量代表的意义如下：Page -目前报表的页码Page# -批次报表的页码TotalPages -目前报表的总页数(报表必须设定为two-pass)TotalPages# -批次报表的总页数
Combination of pages in a composite report 复合报表的合并页
如上所述，当打印时，报表设计的属性 «PrintOnPreviousPage»可以利用前一页的可用空间打印下一页的内容。在复合报表中，它允许你在前一份报表最后一页的可用空间上建立一份新的报表，要执行此功能，必须在每一份连续报表的第一个设计页面启动属性«PrintOnPreviousPage»。
Interactive reports 交互式报表
在交互式报表中，我们可以在预览窗口定义任何报表物件对鼠标按下的反应。例如，使用者选择数据列，然后做一份新的报表，显示选取列的明细数据。任何报表都可以成为交互式报表，要执行此操作，你只需建立TfrxReport.OnClickObject 事件处理程序。下面是此事件处理的范例：
procedure TForm1.frxReport1ClickObject(Page: TfrxPage;
View: TfrxView; Button: TMouseButton; Shift: TShiftState;
var Modified: Boolean);
begin
if View.Name = 'Memo1' then
ShowMessage('Memo1 contents:' + #13#10 +
TfrxMemoView(View).Text);
if View.Name = 'Memo2' then
begin
TfrxMemoView(View).Text := InputBox('Edit', 'Edit
Memo2 text:', TfrxMemoView(View).Text);
Modified := True;
end;
end;
在 «OnClickObject» 事件处理程序中，你可以执行下列工作：-修改物件或页面的內容，但前提是«Modified»属性必须被指定。-调用 «TfrxReport.PrepareReport» 方法重新建立报表。在此范例中，点选 «Memo1» 物件将显示此物件的內容，当点选«Memo2,»将显示Dialog 窗口，物件的内容可于此窗口内被修改。设定«Modified» 标识为«True» 允許保留及显示修改后的內容。同样的方法，它也可被定义为一个单击，有不同的反映。例如，执行一个新的报表。下列的注释是必要的。在中，在一个预览窗口仅显示一个报告，由一个元件组成（不像FastReport 2.x 版）。这就是运行一个报告，其它 TfrxReport 物件，必须删除的原因。
要给使用者按下物件一个提示，我们可以在鼠标指针移至物件上方时变更鼠标指针显示。要达到此目的，请在报表设计环境下，选取想要的物件，并设定不同于预置的Cursor 属性即可。可单击(clickable)物件有许多详细的定义规则。在简单的报表中，可以随意定义目录(contents)中物件的名称。可是，在复杂报表的报表中却不行。例如，创建逐条的报表在有序的数据中。一个用户单击目录为“12”的«Memo1»物件。在该物件上数据将怎样排序？这就是你该明确知道主键值排列顺序的原因。FastReport 可分配一个包含任何数据(我们的例子中是主键值的数据)的字符串到任何报表的物件。此字符串储存在 «TagStr» 属性中。让我们以FastReport 的范例(FastReportDemo.exe 内的【Simple list】)来说明，这是一家公司的客户明细，打印的內容包括【client’s name】，【address】 【contact person】 等字段，数据来源是DBDEMOS 演示数据库的“Customer.db”数据表，该数据表有一个主键值【CustNo】字段，它并未输出在报表。我们的工作是决定点下的物件是哪一笔记录，然后取得该记录的主键值。要执行该工作，必须在Master Data 区域所有物件的«TagStr» 属性在报表建立期间， «TagStr» 属性的內容会以相同的方法被重新计算，当字符物件的內容被计算，所有用到此变量的值将会被取代。假如主鍵值(Primary Key) 是复合字段(它包含多个字段)， «TagStr» 属性的內容可以是下列的写法：[Table1."Field1"];[Table1."Field2"]
建立报表后， «TagStr» 属性的值包含'1000;1' ， 这样就不难取得键值。